version 1.89, 2011/07/04 09:24:54
|
version 1.92, 2013/05/03 16:29:40
|
Line 120 CHEMJS
|
Line 120 CHEMJS
|
my $body=<<CHEMPAGE; |
my $body=<<CHEMPAGE; |
$js |
$js |
<center> |
<center> |
<form> |
<form action=""> |
<table width="440"><tr> |
<table width="440"><tr> |
<td></td> |
<td></td> |
<td align="right"> |
<td align="right"> |
Line 165 CHEMPAGE
|
Line 165 CHEMPAGE
|
if (defined($shown_text)) { $display=&mt($shown_text); } |
if (defined($shown_text)) { $display=&mt($shown_text); } |
my $iconpath=$Apache::lonnet::perlvar{'lonIconsURL'}; |
my $iconpath=$Apache::lonnet::perlvar{'lonIconsURL'}; |
my $function = |
my $function = |
'LONCAPA_draw_molecule_'.&Apache::lonhtmlcommon::get_uniq_name(); |
'LONCAPA_draw_molecule_'.&get_uniq_name(); |
my $result=<<CHEMINPUT; |
my $result=<<CHEMINPUT; |
<script type="text/javascript"> |
<script type="text/javascript"> |
function $function() { |
function $function() { |
Line 337 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 599 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"); |
Line 643 sub end_chem {
|
Line 644 sub end_chem {
|
return $result; |
return $result; |
} |
} |
|
|
|
my $uniq=0; |
|
sub get_uniq_name { |
|
$uniq++; |
|
return 'uniquename'.$uniq; |
|
} |
|
|
1; |
1; |
__END__ |
__END__ |