version 1.25, 2003/12/01 22:55:52
|
version 1.31, 2004/03/12 18:41:43
|
Line 35 BEGIN {
|
Line 35 BEGIN {
|
&Apache::lonxml::register('Apache::chemresponse',('organicresponse','organicstructure','reactionresponse')); |
&Apache::lonxml::register('Apache::chemresponse',('organicresponse','organicstructure','reactionresponse')); |
} |
} |
|
|
sub seperate_jme_window { |
sub separate_jme_window { |
my ($smile_input,$jme_input,$molecule,$options)=@_; |
my ($smile_input,$jme_input,$molecule,$options)=@_; |
my $smilesection; |
my $smilesection; |
if (defined($smile_input)) { |
if (defined($smile_input)) { |
Line 75 function openHelpWindow() {
|
Line 75 function openHelpWindow() {
|
</head> |
</head> |
<body bgcolor="#ffffff"> |
<body bgcolor="#ffffff"> |
<center> |
<center> |
<applet code="JME.class" name="JME" archive="/adm/jme/JME.jar" width="485" height="468"> |
<applet code="JME.class" name="JME" archive="/adm/jme/JME.jar" width="440" height="390"> |
You have to enable Java and JavaScript on your machine. |
You have to enable Java and JavaScript on your machine. |
$molecule |
$molecule |
<param name="options" value="$options" /> |
<param name="options" value="$options" /> |
Line 106 sub start_organicresponse {
|
Line 106 sub start_organicresponse {
|
my $partid = $Apache::inputtags::part; |
my $partid = $Apache::inputtags::part; |
my $id = &Apache::response::start_response($parstack,$safeeval); |
my $id = &Apache::response::start_response($parstack,$safeeval); |
if ($target eq 'meta') { |
if ($target eq 'meta') { |
|
$result=&Apache::response::meta_package_write('organicresponse'); |
} elsif ($target eq 'web') { |
} elsif ($target eq 'web') { |
my $molecule; |
my $molecule; |
if (defined($Apache::lonhomework::history{"resource.$partid.$id.molecule"})) { |
if (defined($Apache::lonhomework::history{"resource.$partid.$id.molecule"})) { |
Line 116 sub start_organicresponse {
|
Line 117 sub start_organicresponse {
|
} |
} |
my $options=&Apache::lonxml::get_param('options',$parstack, |
my $options=&Apache::lonxml::get_param('options',$parstack, |
$safeeval); |
$safeeval); |
$result=&seperate_jme_window("HWVAL_$id","MOLECULE_$id",$molecule,$options); |
$result=&separate_jme_window("HWVAL_$id","MOLECULE_$id",$molecule,$options); |
$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 128 sub start_organicresponse {
|
Line 129 sub start_organicresponse {
|
$token,40); |
$token,40); |
my $molecule=&Apache::lonxml::get_param('molecule',$parstack, |
my $molecule=&Apache::lonxml::get_param('molecule',$parstack, |
$safeeval); |
$safeeval); |
$result .=&seperate_jme_window(undef, |
$result .=&separate_jme_window(undef, |
&Apache::edit::html_element_name('molecule'), |
&Apache::edit::html_element_name('molecule'), |
$molecule,$options); |
$molecule,$options); |
$result .='</nobr><br /><nobr>'; |
$result .='</nobr><br /><nobr>'; |
Line 137 sub start_organicresponse {
|
Line 138 sub start_organicresponse {
|
$result .=&Apache::edit::hidden_arg('jmeanswer',$token); |
$result .=&Apache::edit::hidden_arg('jmeanswer',$token); |
my $jmeanswer=&Apache::lonxml::get_param('jmeanswer',$parstack, |
my $jmeanswer=&Apache::lonxml::get_param('jmeanswer',$parstack, |
$safeeval); |
$safeeval); |
$result .=&seperate_jme_window( |
$result .=&separate_jme_window( |
&Apache::edit::html_element_name('answer'), |
&Apache::edit::html_element_name('answer'), |
&Apache::edit::html_element_name('jmeanswer'), |
&Apache::edit::html_element_name('jmeanswer'), |
$jmeanswer,$options); |
$jmeanswer,$options); |
$result .='</nobr><br />'; |
$result .='</nobr><br />'; |
$result .=&Apache::edit::checked_arg('Options:','options', |
$result .=&Apache::edit::checked_arg('Options:','options', |
[ ['autoez','Auto E,Z sterochemistry'], |
[ ['autoez','Auto E,Z stereochemistry'], |
['multipart','Multipart Structures'], |
['multipart','Multipart Structures'], |
['nostereo','No stereochemistry'], |
['nostereo','No stereochemistry'], |
['reaction','Is a reaction'], |
['reaction','Is a reaction'], |
Line 164 sub end_organicresponse {
|
Line 165 sub end_organicresponse {
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $result; |
my $result; |
if ($target eq 'grade' && defined($ENV{'form.submitted'})) { |
if ($target eq 'grade' && defined($ENV{'form.submitted'})) { |
&Apache::response::setup_params($$tagstack[-1]); |
&Apache::response::setup_params($$tagstack[-1],$safeeval); |
my $response = &Apache::response::getresponse(); |
my $response = &Apache::response::getresponse(); |
if ( $response =~ /[^\s]/) { |
if ( $response =~ /[^\s]/) { |
my $partid = $Apache::inputtags::part; |
my $partid = $Apache::inputtags::part; |
Line 247 sub start_organicstructure {
|
Line 248 sub start_organicstructure {
|
$options.= ',multipart,number'; |
$options.= ',multipart,number'; |
} |
} |
|
|
$result .=&seperate_jme_window(undef, |
$result .=&separate_jme_window(undef, |
&Apache::edit::html_element_name('molecule'), |
&Apache::edit::html_element_name('molecule'), |
$molecule,$options); |
$molecule,$options); |
$result.="</nobr><br />"; |
$result.="</nobr><br />"; |
Line 298 sub start_reactionresponse {
|
Line 299 sub start_reactionresponse {
|
my $result; |
my $result; |
my $id = &Apache::response::start_response($parstack,$safeeval); |
my $id = &Apache::response::start_response($parstack,$safeeval); |
if ($target eq 'meta') { |
if ($target eq 'meta') { |
|
$result=&Apache::response::meta_package_write('reactionresponse'); |
} elsif ($target eq 'web') { |
} elsif ($target eq 'web') { |
my $partid = $Apache::inputtags::part; |
my $partid = $Apache::inputtags::part; |
my $id = $Apache::inputtags::response['-1']; |
my $id = $Apache::inputtags::response['-1']; |
Line 324 sub end_reactionresponse {
|
Line 326 sub end_reactionresponse {
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $result; |
my $result; |
if ($target eq 'grade' && defined($ENV{'form.submitted'})) { |
if ($target eq 'grade' && defined($ENV{'form.submitted'})) { |
&Apache::response::setup_params($$tagstack[-1]); |
&Apache::response::setup_params($$tagstack[-1],$safeeval); |
my $response = &Apache::response::getresponse(); |
my $response = &Apache::response::getresponse(); |
if ( $response =~ /[^\s]/) { |
if ( $response =~ /[^\s]/) { |
my $partid = $Apache::inputtags::part; |
my $partid = $Apache::inputtags::part; |