loncom/homework/chemresponse.pm - diff

Return to chemresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.15, 2003/10/16 18:30:46	version 1.16, 2003/10/16 20:16:42
Line 210 sub start_organicstructure {	Line 210 sub start_organicstructure {
my $height=&Apache::lonxml::get_param('height',$parstack,$safeeval);	my $height=&Apache::lonxml::get_param('height',$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);
$result=<<CHEMOUTPUT;	my $id=time.'_'.int(rand(1000));
<applet code="JME.class" archive="/adm/jme/JME.jar" width="$width" height="$height">	$result="<img src='/cgi-bin/convertjme.pl?$id' />";
<param name="options" value="depict,$options" />	&Apache::lonnet::appenv(
<param name="jme" value="$molecule" />	'cgi.'.$id.'.JME' => &Apache::lonnet::escape($molecule),
</applet>	'cgi.'.$id.'.WIDTH' => $width );
CHEMOUTPUT
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {
$result .=&Apache::edit::tag_start($target,$token);	$result .=&Apache::edit::tag_start($target,$token);
$result .=&Apache::edit::text_arg('Width:','width',$token,5);	$result .=&Apache::edit::text_arg('Width:','width',$token,5);