loncom/homework/chemresponse.pm - diff

Return to chemresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.22, 2003/10/21 20:58:29	version 1.24, 2003/11/24 21:55:12
Line 208 sub start_organicstructure {	Line 208 sub start_organicstructure {
my $width=&Apache::lonxml::get_param('width',$parstack,$safeeval);	my $width=&Apache::lonxml::get_param('width',$parstack,$safeeval);
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=&Apache::loncommon::get_cgi_id();
$result="<img src='/cgi-bin/convertjme.pl?$id'";	$result="<img src='/cgi-bin/convertjme.pl?$id'";
if ($options =~ /border/) { $result.= ' border="1"'; }	if ($options =~ /border/) { $result.= ' border="1"'; }
$result.=' />';	$result.=' />';
Line 255 sub start_organicstructure {	Line 255 sub start_organicstructure {
[ ['reaction','Is a reaction'],	[ ['reaction','Is a reaction'],
['border','Draw a border'] ],	['border','Draw a border'] ],
$token);	$token);
$result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row();	$result .=&Apache::edit::end_row();
} elsif ($target eq 'modified') {	} elsif ($target eq 'modified') {
my $constructtag=&Apache::edit::get_new_args($token,$parstack,	my $constructtag=&Apache::edit::get_new_args($token,$parstack,
$safeeval,'molecule',	$safeeval,'molecule',