loncom/homework/chemresponse.pm - diff

Return to chemresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.18, 2003/10/17 22:26:38	version 1.19, 2003/10/18 07:24:35
Line 208 sub start_organicstructure {	Line 208 sub start_organicstructure {
my $molecule=&Apache::lonxml::get_param('molecule',$parstack,$safeeval);	my $molecule=&Apache::lonxml::get_param('molecule',$parstack,$safeeval);
my $options=&Apache::lonxml::get_param('options',$parstack,$safeeval);	my $options=&Apache::lonxml::get_param('options',$parstack,$safeeval);
my $id=time.'_'.int(rand(1000));	my $id=time.'_'.int(rand(1000));
$result="<img src='/cgi-bin/convertjme.pl?$id' />";	$result="<img src='/cgi-bin/convertjme.pl?$id'";
	if ($options =~ /border/) { $result.= ' border="1"'; }
	$result.=' />';
&Apache::lonnet::appenv(	&Apache::lonnet::appenv(
'cgi.'.$id.'.JME' => &Apache::lonnet::escape($molecule),	'cgi.'.$id.'.JME' => &Apache::lonnet::escape($molecule),
'cgi.'.$id.'.PNG' => 1,	'cgi.'.$id.'.PNG' => 1,