version 1.86, 2008/12/23 18:51:44
|
version 1.90, 2011/11/14 03:08:01
|
Line 116 CHEMJS
|
Line 116 CHEMJS
|
'bgcolor' => '#FFFFFF',}); |
'bgcolor' => '#FFFFFF',}); |
my $end_page = |
my $end_page = |
&Apache::loncommon::end_page({'js_ready' => 1,}); |
&Apache::loncommon::end_page({'js_ready' => 1,}); |
|
my $java_not_enabled=&Apache::lonhtmlcommon::java_not_enabled(); |
my $body=<<CHEMPAGE; |
my $body=<<CHEMPAGE; |
$js |
$js |
<center> |
<center> |
Line 143 $js
|
Line 143 $js
|
</td></tr> |
</td></tr> |
</table> |
</table> |
<applet code="JME.class" name="JME" archive="/adm/jme/JME.jar" width="440" height="390" mayscript> |
<applet code="JME.class" name="JME" archive="/adm/jme/JME.jar" width="440" height="390" mayscript> |
You have to enable Java and JavaScript on your machine. |
$java_not_enabled |
$molecule |
$molecule |
<param name="options" value="$options" /> |
<param name="options" value="$options" /> |
</applet><br /> |
</applet><br /> |
Line 304 sub end_organicresponse {
|
Line 304 sub end_organicresponse {
|
$ad='INCORRECT'; |
$ad='INCORRECT'; |
} |
} |
} |
} |
if ($ad && $Apache::lonhomework::type eq 'survey') { |
if ($ad) { |
$ad='SUBMITTED'; |
if ($Apache::lonhomework::type eq 'survey') { |
} |
$ad='SUBMITTED'; |
|
} elsif ($Apache::lonhomework::type eq 'surveycred') { |
|
$ad='SUBMITTED_CREDIT'; |
|
} elsif ($Apache::lonhomework::type eq 'anonsurvey') { |
|
$ad='ANONYMOUS'; |
|
} elsif ($Apache::lonhomework::type eq 'anonsurveycred') { |
|
$ad='ANONYMOUS_CREDIT'; |
|
} |
|
} |
&Apache::response::handle_previous(\%previous,$ad); |
&Apache::response::handle_previous(\%previous,$ad); |
$Apache::lonhomework::results{"resource.$partid.$id.awarddetail"}=$ad; |
$Apache::lonhomework::results{"resource.$partid.$id.awarddetail"}=$ad; |
$Apache::lonhomework::results{"resource.$partid.$id.molecule"}=$env{"form.MOLECULE_$id"}; |
$Apache::lonhomework::results{"resource.$partid.$id.molecule"}=$env{"form.MOLECULE_$id"}; |
Line 329 sub end_organicresponse {
|
Line 337 sub end_organicresponse {
|
|
|
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
$target eq 'tex' || $target eq 'analyze') { |
$target eq 'tex' || $target eq 'analyze') { |
&Apache::lonxml::increment_counter(&Apache::response::repetition(), |
my $repetition = &Apache::response::repetition(); |
"$partid.$id"); # part.response |
&Apache::lonxml::increment_counter($repetition,"$partid.$id"); # part.response |
if ($target eq 'analyze') { |
if ($target eq 'analyze') { |
$Apache::lonhomework::analyze{"$partid.$id.type"} = 'organicresponse'; |
$Apache::lonhomework::analyze{"$partid.$id.type"} = 'organicresponse'; |
push (@{ $Apache::lonhomework::analyze{"parts"} },"$partid.$id"); |
push (@{ $Apache::lonhomework::analyze{"parts"} },"$partid.$id"); |
Line 409 sub start_organicstructure {
|
Line 417 sub start_organicstructure {
|
$id=&escape($id); |
$id=&escape($id); |
&Apache::lonxml::register_ssi("/cgi-bin/convertjme.pl?$id"); |
&Apache::lonxml::register_ssi("/cgi-bin/convertjme.pl?$id"); |
if ($options =~ /border/) { $result.= '\fbox{'; } |
if ($options =~ /border/) { $result.= '\fbox{'; } |
$result .= '\graphicspath{{/home/httpd/perl/tmp/}}\includegraphics[width='.$texwidth.' mm]{'.$filename.'.eps}'; |
$result .= '\graphicspath{{'.LONCAPA::tempdir(). |
|
'}}\includegraphics[width='.$texwidth.' mm]{'.$filename.'.eps}'; |
if ($options =~ /border/) { $result.= '} '; } |
if ($options =~ /border/) { $result.= '} '; } |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
$result .=&Apache::edit::tag_start($target,$token); |
$result .=&Apache::edit::tag_start($target,$token); |
Line 558 sub end_reactionresponse {
|
Line 567 sub end_reactionresponse {
|
$ad='INCORRECT'; |
$ad='INCORRECT'; |
} |
} |
} |
} |
if ($ad && $Apache::lonhomework::type eq 'survey') { |
if ($ad) { |
$ad='SUBMITTED'; |
if ($Apache::lonhomework::type eq 'survey') { |
} |
$ad='SUBMITTED'; |
|
} elsif ($ad && $Apache::lonhomework::type eq 'surveycred') { |
|
$ad='SUBMITTED_CREDIT'; |
|
} elsif ($ad && $Apache::lonhomework::type eq 'anonsurvey') { |
|
$ad='ANONYMOUS'; |
|
} elsif ($ad && $Apache::lonhomework::type eq 'anonsurveycred') { |
|
$ad='ANONYMOUS_CREDIT'; |
|
} |
|
} |
&Apache::response::handle_previous(\%previous,$ad); |
&Apache::response::handle_previous(\%previous,$ad); |
$Apache::lonhomework::results{"resource.$partid.$id.awarddetail"}=$ad; |
$Apache::lonhomework::results{"resource.$partid.$id.awarddetail"}=$ad; |
} |
} |
Line 582 sub end_reactionresponse {
|
Line 599 sub end_reactionresponse {
|
|
|
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
$target eq 'tex' || $target eq 'analyze') { |
$target eq 'tex' || $target eq 'analyze') { |
&Apache::lonxml::increment_counter(&Apache::response::repetition(), "$partid.$id"); |
my $repetition = &Apache::response::repetition(); |
|
&Apache::lonxml::increment_counter($repetition,"$partid.$id"); |
if ($target eq 'analyze') { |
if ($target eq 'analyze') { |
$Apache::lonhomework::analyze{"$partid.$id.type"} = 'reactionresponse'; |
$Apache::lonhomework::analyze{"$partid.$id.type"} = 'reactionresponse'; |
push (@{ $Apache::lonhomework::analyze{"parts"} },"$partid.$id"); |
push (@{ $Apache::lonhomework::analyze{"parts"} },"$partid.$id"); |