version 1.13, 2003/10/06 21:39:51
|
version 1.16, 2003/10/16 20:16:42
|
Line 51 SMILESECTION
|
Line 51 SMILESECTION
|
JMESECTION |
JMESECTION |
} |
} |
|
|
if ($molecule) { $molecule="<param name='jme' value='$molecule' />"; } |
if ($molecule) { $molecule='<param name="jme" value="'.$molecule.'" />'; } |
my $body=<<CHEMPAGE; |
my $body=<<CHEMPAGE; |
<html> |
<html> |
<head> |
<head> |
Line 113 sub start_organicresponse {
|
Line 113 sub start_organicresponse {
|
$molecule=&Apache::lonxml::get_param('molecule',$parstack, |
$molecule=&Apache::lonxml::get_param('molecule',$parstack, |
$safeeval); |
$safeeval); |
} |
} |
my $multipart=&Apache::lonxml::get_param('multipart',$parstack, |
my $options=&Apache::lonxml::get_param('options',$parstack, |
$safeeval); |
$safeeval); |
if ($multipart eq 'yes') { |
$result=&seperate_jme_window("HWVAL_$id","MOLECULE_$id",$molecule,$options); |
$multipart = 'multipart'; |
|
} else { |
|
$multipart =''; |
|
} |
|
$result=&seperate_jme_window("HWVAL_$id","MOLECULE_$id",$molecule,$multipart); |
|
$result.= '<input type="hidden" name="MOLECULE_'.$id.'" value="" />'; |
$result.= '<input type="hidden" name="MOLECULE_'.$id.'" value="" />'; |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
$result .=&Apache::edit::tag_start($target,$token); |
$result .=&Apache::edit::tag_start($target,$token); |
Line 194 sub end_organicresponse {
|
Line 189 sub end_organicresponse {
|
} |
} |
} elsif ($target eq "edit") { |
} elsif ($target eq "edit") { |
$result.= &Apache::edit::tag_end($target,$token,''); |
$result.= &Apache::edit::tag_end($target,$token,''); |
|
} elsif ($target eq 'answer') { |
|
my (@answers)=&Apache::lonxml::get_param_var('answer',$parstack, |
|
$safeeval); |
|
$result.=&Apache::response::answer_header('organicresponse'); |
|
foreach my $answer (@answers) { |
|
$result.=&Apache::response::answer_part('organicresponse',$answer); |
|
} |
|
$result.=&Apache::response::answer_footer('organicresponse'); |
} |
} |
&Apache::response::end_response; |
&Apache::response::end_response; |
return $result; |
return $result; |
Line 207 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); |
Line 310 sub end_reactionresponse {
|
Line 313 sub end_reactionresponse {
|
if ( $response =~ /[^\s]/) { |
if ( $response =~ /[^\s]/) { |
my $partid = $Apache::inputtags::part; |
my $partid = $Apache::inputtags::part; |
my $id = $Apache::inputtags::response['-1']; |
my $id = $Apache::inputtags::response['-1']; |
my (@answers)=&Apache::lonxml::get_param('answer',$parstack,$safeeval); |
my (@answers)=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval); |
my %previous = &Apache::response::check_for_previous($response,$partid,$id); |
my %previous = &Apache::response::check_for_previous($response,$partid,$id); |
$Apache::lonhomework::results{"resource.$partid.$id.submission"}=$response; |
$Apache::lonhomework::results{"resource.$partid.$id.submission"}=$response; |
my $ad; |
my $ad; |
Line 327 sub end_reactionresponse {
|
Line 330 sub end_reactionresponse {
|
} |
} |
} elsif ($target eq "edit") { |
} elsif ($target eq "edit") { |
$result.= &Apache::edit::tag_end($target,$token,''); |
$result.= &Apache::edit::tag_end($target,$token,''); |
|
} elsif ($target eq 'answer') { |
|
my (@answers)=&Apache::lonxml::get_param_var('answer',$parstack, |
|
$safeeval); |
|
$result.=&Apache::response::answer_header('reactionresponse'); |
|
foreach my $answer (@answers) { |
|
$result.=&Apache::response::answer_part('reactionresponse', |
|
$answer); |
|
} |
|
$result.=&Apache::response::answer_footer('reactionresponse'); |
} |
} |
&Apache::response::end_response; |
&Apache::response::end_response; |
return $result; |
return $result; |