--- loncom/homework/chemresponse.pm 2003/05/04 08:45:22 1.1 +++ loncom/homework/chemresponse.pm 2003/10/16 20:16:42 1.16 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # chemical equation style response # -# $Id: chemresponse.pm,v 1.1 2003/05/04 08:45:22 albertel Exp $ +# $Id: chemresponse.pm,v 1.16 2003/10/16 20:16:42 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -32,11 +32,26 @@ use Apache::lonxml; use Apache::lonnet; BEGIN { - &Apache::lonxml::register('Apache::chemresponse',('chemresponse','chemstructure')); + &Apache::lonxml::register('Apache::chemresponse',('organicresponse','organicstructure','reactionresponse')); } sub seperate_jme_window { - my ($id,$molecule)=@_; + my ($smile_input,$jme_input,$molecule,$options)=@_; + my $smilesection; + if (defined($smile_input)) { + $smilesection=<'; } my $body=< @@ -47,14 +62,13 @@ function submitSmiles() { if (smiles == "") { alert("Nothing to submit"); } else { - jmeFile = document.applets.JME.jmeFile(); - opener.document.lonhomework.HWVAL_$id.value = smiles; - opener.document.lonhomework.MOLECULE_$id.value = jmeFile; + $smilesection + $jmesection window.close(); } } function openHelpWindow() { - window.open("/adm/jme/jme_help.html","","scrollbars=yes,resizable=yes,width=500,height=600") + window.open("/adm/jme/jme_help.html","","scrollbars=yes,resizable=yes,width=500,height=600"); } @@ -62,7 +76,8 @@ function openHelpWindow() {
You have to enable Java and JavaScript on your machine. - +$molecule +
JME Editor courtesy of Peter Ertl, Novartis
@@ -84,7 +99,7 @@ CHEMINPUT return $result; } -sub start_chemresponse { +sub start_organicresponse { my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; my $result; my $partid = $Apache::inputtags::part; @@ -98,13 +113,55 @@ sub start_chemresponse { $molecule=&Apache::lonxml::get_param('molecule',$parstack, $safeeval); } - $result=&seperate_jme_window($id,$molecule); + my $options=&Apache::lonxml::get_param('options',$parstack, + $safeeval); + $result=&seperate_jme_window("HWVAL_$id","MOLECULE_$id",$molecule,$options); $result.= ''; + } elsif ($target eq 'edit') { + $result .=&Apache::edit::tag_start($target,$token); + my $options=&Apache::lonxml::get_param('options',$parstack, + $safeeval); + if ($options !~ /multipart/) { $options.=',multipart'; } + $result .=''. + &Apache::edit::text_arg('Starting Molecule:','molecule', + $token,40); + my $molecule=&Apache::lonxml::get_param('molecule',$parstack, + $safeeval); + $result .=&seperate_jme_window(undef, + &Apache::edit::html_element_name('molecule'), + $molecule,$options); + $result .='
'; + $result .=&Apache::edit::text_arg('Correct Answer:','answer', + $token,40); + $result .=&Apache::edit::hidden_arg('jmeanswer',$token); + my $jmeanswer=&Apache::lonxml::get_param('jmeanswer',$parstack, + $safeeval); + $result .=&seperate_jme_window( + &Apache::edit::html_element_name('answer'), + &Apache::edit::html_element_name('jmeanswer'), + $jmeanswer,$options); + $result .='
'; + $result .=&Apache::edit::checked_arg('Options:','options', + [ ['autoez','Auto E,Z sterochemistry'], + ['multipart','MultiPart Structures'], + ['hydrogens','Show Hydrogens'], + ['nostereo','No stereochemistry'], + ['reaction','Is a reaction'], + ['number','Able to number atoms'], + ['border','Draw a border'] ], + ,$token); + $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); + } elsif ($target eq 'modified') { + my $constructtag=&Apache::edit::get_new_args($token,$parstack, + $safeeval,'molecule', + 'answer','jmeanswer', + 'options'); + if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } } return $result; } -sub end_chemresponse { +sub end_organicresponse { my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; my $result; if ($target eq 'grade' && defined($ENV{'form.submitted'})) { @@ -113,29 +170,178 @@ sub end_chemresponse { if ( $response =~ /[^\s]/) { my $partid = $Apache::inputtags::part; my $id = $Apache::inputtags::response['-1']; - my $answer=&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); $Apache::lonhomework::results{"resource.$partid.$id.submission"}=$response; - &Apache::lonxml::debug("submitted a $response for $answer
\n"); my $ad; - if ($response eq $answer) { - $ad='EXACT_ANS'; - } else { - $ad='INCORRECT'; + foreach my $answer (@answers) { + &Apache::lonxml::debug("submitted a $response for $answer
\n"); + if ($response eq $answer) { + $ad='EXACT_ANS'; + last; + } else { + $ad='INCORRECT'; + } } &Apache::response::handle_previous(\%previous,$ad); $Apache::lonhomework::results{"resource.$partid.$id.awarddetail"}=$ad; $Apache::lonhomework::results{"resource.$partid.$id.molecule"}=$ENV{"form.MOLECULE_$id"}; } + } elsif ($target eq "edit") { + $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; return $result; } -sub start_chemstructure { +sub start_organicstructure { + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; + my $result; + if ($target eq 'web') { + my $width=&Apache::lonxml::get_param('width',$parstack,$safeeval); + my $height=&Apache::lonxml::get_param('height',$parstack,$safeeval); + my $molecule=&Apache::lonxml::get_param('molecule',$parstack,$safeeval); + my $options=&Apache::lonxml::get_param('options',$parstack,$safeeval); + my $id=time.'_'.int(rand(1000)); + $result=""; + &Apache::lonnet::appenv( + 'cgi.'.$id.'.JME' => &Apache::lonnet::escape($molecule), + 'cgi.'.$id.'.WIDTH' => $width ); + + } elsif ($target eq 'edit') { + $result .=&Apache::edit::tag_start($target,$token); + $result .=&Apache::edit::text_arg('Width:','width',$token,5); + $result .=&Apache::edit::text_arg('Height:','height',$token,5); + $result .=''; + $result .=&Apache::edit::text_arg('Molecule:','molecule',$token,40); + my $molecule=&Apache::lonxml::get_param('molecule',$parstack, + $safeeval); + my $options=&Apache::lonxml::get_param('options',$parstack, + $safeeval); + if ($options !~ /reaction/) { + $options.= ',multipart,number'; + } + + $result .=&seperate_jme_window(undef, + &Apache::edit::html_element_name('molecule'), + $molecule,$options); + $result.="
"; + $result .=&Apache::edit::checked_arg('Options:','options', + [ ['hydrogens','Show Hydrogens'], + ['reaction','Is a reaction'], + ['border','Draw a border'] ], + $token); + $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); + } elsif ($target eq 'modified') { + my $constructtag=&Apache::edit::get_new_args($token,$parstack, + $safeeval,'molecule', + 'width','height', + 'options'); + if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } + } + return $result; +} + +sub end_organicstructure { + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; + my $result; + if ($target eq "edit") { + $result.= &Apache::edit::tag_end($target,$token,''); + } + return $result; +} + +sub edit_reaction_button { + my ($id,$field,$reaction)=@_; + my $id_es=&Apache::lonnet::escape($id); + my $field_es=&Apache::lonnet::escape($field); + my $reaction_es=&Apache::lonnet::escape($reaction); + my $result=< + function create_reaction_window_${id}_${field} () { + editor=window.open('','','width=500,height=270,scrollbars=no,resizable=yes'); + editor.document.open('text/html','replace'); + editor.document.writeln(' LON-CAPA Reaction Editor '); + } + + +EDITREACTION + return $result; +} + +sub start_reactionresponse { + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; + my $result; + my $id = &Apache::response::start_response($parstack,$safeeval); + if ($target eq 'meta') { + } elsif ($target eq 'web') { + my $partid = $Apache::inputtags::part; + my $id = $Apache::inputtags::response['-1']; + my $reaction=$Apache::lonhomework::history{"resource.$partid.$id.submission"}; + $result.=&edit_reaction_button($id,"HWVAL_$id",$reaction); + } elsif ($target eq "edit") { + $result .=&Apache::edit::tag_start($target,$token); + my $answer=&Apache::lonxml::get_param('answer',$parstack, + $safeeval); + $result .=''. + &Apache::edit::text_arg('Answer:','answer',$token,40); + $result .=&edit_reaction_button($id,&Apache::edit::html_element_name('answer'),$answer).''; + + $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); + } elsif ($target eq 'modified') { + my $constructtag=&Apache::edit::get_new_args($token,$parstack, + $safeeval,'answer'); + if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } + } + return $result; } -sub end_chemstructure { +sub end_reactionresponse { + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; + my $result; + if ($target eq 'grade' && defined($ENV{'form.submitted'})) { + &Apache::response::setup_params($$tagstack[-1]); + my $response = &Apache::response::getresponse(); + if ( $response =~ /[^\s]/) { + my $partid = $Apache::inputtags::part; + my $id = $Apache::inputtags::response['-1']; + my (@answers)=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval); + my %previous = &Apache::response::check_for_previous($response,$partid,$id); + $Apache::lonhomework::results{"resource.$partid.$id.submission"}=$response; + my $ad; + foreach my $answer (@answers) { + &Apache::lonxml::debug("submitted a $response for $answer
\n"); + if ($response eq $answer) { + $ad='EXACT_ANS'; + } else { + $ad='INCORRECT'; + } + } + &Apache::response::handle_previous(\%previous,$ad); + $Apache::lonhomework::results{"resource.$partid.$id.awarddetail"}=$ad; + } + } elsif ($target eq "edit") { + $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; + return $result; } 1;