version 1.73, 2007/04/18 00:48:06
|
version 1.79, 2008/09/05 16:09:39
|
Line 163 CHEMPAGE
|
Line 163 CHEMPAGE
|
my $docopen=&Apache::lonhtmlcommon::javascript_docopen(); |
my $docopen=&Apache::lonhtmlcommon::javascript_docopen(); |
my $display=&mt('Draw Molecule'); |
my $display=&mt('Draw Molecule'); |
if (defined($shown_text)) { $display=&mt($shown_text); } |
if (defined($shown_text)) { $display=&mt($shown_text); } |
|
my $iconpath=$Apache::lonnet::perlvar{'lonIconsURL'}; |
my $function = |
my $function = |
'LONCAPA_draw_molecule_'.&Apache::lonhtmlcommon::get_uniq_name(); |
'LONCAPA_draw_molecule_'.&Apache::lonhtmlcommon::get_uniq_name(); |
my $result=<<CHEMINPUT; |
my $result=<<CHEMINPUT; |
Line 175 CHEMPAGE
|
Line 176 CHEMPAGE
|
editor.focus(); |
editor.focus(); |
} |
} |
</script> |
</script> |
<input type="button" value="$display" onclick="javascript:$function();void(0);" /> |
<a href="javascript:$function();void(0);"><img class="stift" src='$iconpath/stift.gif' alt='$display' title='$display' /></a> |
CHEMINPUT |
CHEMINPUT |
return $result; |
return $result; |
} |
} |
|
|
sub jme_img { |
sub jme_img { |
my ($jme,$smile,$width,$options)=@_; |
my ($jme,$smile,$width,$options)=@_; |
my $id=&Apache::loncommon::get_cgi_id(); |
my $id=&Apache::loncommon::get_cgi_id(); |
my $result='<img alt="'.$smile.'" src="/cgi-bin/convertjme.pl?'.$id.'"'; |
my $result='<img alt="'.$smile.'" src="/cgi-bin/convertjme.pl?'.$id.'"'; |
if ($options =~ /border/) { $result.= ' border="1"'; } |
if ($options =~ /border/) { $result.= ' border="1"'; } |
$result.=' />'; |
$result.=' />'; |
&Apache::lonnet::appenv('cgi.'.$id.'.JME' => |
&Apache::lonnet::appenv({'cgi.'.$id.'.JME' => |
&escape($jme), |
&escape($jme), |
'cgi.'.$id.'.PNG' => 1, |
'cgi.'.$id.'.PNG' => 1, |
'cgi.'.$id.'.WIDTH' => $width); |
'cgi.'.$id.'.WIDTH' => $width}); |
return $result; |
return $result; |
} |
} |
|
|
Line 225 sub start_organicresponse {
|
Line 225 sub start_organicresponse {
|
if (&Apache::response::show_answer()) { |
if (&Apache::response::show_answer()) { |
$shown_text="Show Your Last Answer"; |
$shown_text="Show Your Last Answer"; |
} |
} |
$result=&separate_jme_window("HWVAL_$id","MOLECULE_$id",$molecule, |
#stift $result=&separate_jme_window("HWVAL_$id","MOLECULE_$id",$molecule, |
$options,$shown_text); |
# $options,$shown_text); |
$result.= '<input type="hidden" name="MOLECULE_'.$id.'" value="" />'; |
$result.= '<input type="hidden" name="MOLECULE_'.$id.'" value="" />'; |
} |
} |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
Line 334 sub end_organicresponse {
|
Line 334 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()); |
&Apache::lonxml::increment_counter(&Apache::response::repetition(), |
|
"$partid.$id"); # part.response |
|
if ($target eq 'analyze') { |
|
$Apache::lonhomework::analyze{"$partid.$id.type"} = 'organicresponse'; |
|
&Apache::lonhomework::set_bubble_lines(); |
|
} |
|
} |
|
if (($target eq 'web' ) && ($Apache::lonhomework::type ne 'exam') && ($Apache::inputtags::status['-1'] eq 'CAN_ANSWER')){ |
|
# hierher |
|
my $options=&Apache::lonxml::get_param('options',$parstack, |
|
$safeeval); |
|
my $shown_text; |
|
if (&Apache::response::show_answer()) { |
|
$shown_text="Show Your Last Answer"; |
|
} |
|
my $molecule; |
|
if (defined($Apache::lonhomework::history{"resource.$partid.$id.molecule"})) { |
|
$molecule=$Apache::lonhomework::history{"resource.$partid.$id.molecule"}; |
|
} else { |
|
$molecule=&Apache::lonxml::get_param('molecule',$parstack, |
|
$safeeval); |
|
} |
|
$result.=&separate_jme_window("HWVAL_$id","MOLECULE_$id",$molecule, |
|
$options,$shown_text); |
} |
} |
&Apache::response::end_response(); |
&Apache::response::end_response(); |
return $result; |
return $result; |
Line 360 sub start_organicstructure {
|
Line 383 sub start_organicstructure {
|
if ($options =~ /border/) { $result.= ' border="1"'; } |
if ($options =~ /border/) { $result.= ' border="1"'; } |
$result.=' />'; |
$result.=' />'; |
&Apache::lonnet::appenv( |
&Apache::lonnet::appenv( |
'cgi.'.$id.'.JME' => &escape($molecule), |
{'cgi.'.$id.'.JME' => &escape($molecule), |
'cgi.'.$id.'.PNG' => 1, |
'cgi.'.$id.'.PNG' => 1, |
'cgi.'.$id.'.WIDTH' => $width ); |
'cgi.'.$id.'.WIDTH' => $width}); |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
my $texwidth=&Apache::lonxml::get_param('texwidth',$parstack,$safeeval,undef,1); |
my $texwidth=&Apache::lonxml::get_param('texwidth',$parstack,$safeeval,undef,1); |
my $webwidth=&Apache::lonxml::get_param('width', $parstack, $safeeval); |
my $webwidth=&Apache::lonxml::get_param('width', $parstack, $safeeval); |
Line 376 sub start_organicstructure {
|
Line 399 sub start_organicstructure {
|
'_'.time.'_'.$$.int(rand(1000)).'_organicstructure'; |
'_'.time.'_'.$$.int(rand(1000)).'_organicstructure'; |
my $id=$filename; |
my $id=$filename; |
&Apache::lonnet::appenv( |
&Apache::lonnet::appenv( |
'cgi.'.$id.'.JME' => &escape($molecule), |
{'cgi.'.$id.'.JME' => &escape($molecule), |
'cgi.'.$id.'.PS' => 1, |
'cgi.'.$id.'.PS' => 1, |
'cgi.'.$id.'.WIDTH' => $texwidth ); |
'cgi.'.$id.'.WIDTH' => $texwidth}); |
$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{'; } |
Line 560 sub end_reactionresponse {
|
Line 583 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()); |
&Apache::lonxml::increment_counter(&Apache::response::repetition(), "$partid.$id"); |
|
if ($target eq 'analyze') { |
|
$Apache::lonhomework::analyze{"$partid.$id.type"} = 'reactionresponse'; |
|
&Apache::lonhomework::set_bubble_lines(); |
|
} |
} |
} |
&Apache::response::end_response(); |
&Apache::response::end_response(); |
return $result; |
return $result; |