--- loncom/homework/chemresponse.pm 2003/05/05 20:43:46 1.4 +++ loncom/homework/chemresponse.pm 2003/06/30 21:59:03 1.9 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # chemical equation style response # -# $Id: chemresponse.pm,v 1.4 2003/05/05 20:43:46 albertel Exp $ +# $Id: chemresponse.pm,v 1.9 2003/06/30 21:59:03 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -32,11 +32,11 @@ use Apache::lonxml; use Apache::lonnet; BEGIN { - &Apache::lonxml::register('Apache::chemresponse',('chemresponse','chemstructure','reactionresponse')); + &Apache::lonxml::register('Apache::chemresponse',('organicresponse','organicstructure','reactionresponse')); } sub seperate_jme_window { - my ($smile_input,$jme_input,$molecule)=@_; + my ($smile_input,$jme_input,$molecule,$options)=@_; my $smilesection; if (defined($smile_input)) { $smilesection=< You have to enable Java and JavaScript on your machine. +
JME Editor courtesy of Peter Ertl, Novartis
@@ -97,7 +98,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; @@ -111,18 +112,26 @@ sub start_chemresponse { $molecule=&Apache::lonxml::get_param('molecule',$parstack, $safeeval); } - $result=&seperate_jme_window("HWVAL_$id","MOLECULE_$id",$molecule); + my $multipart=&Apache::lonxml::get_param('multipart',$parstack, + $safeeval); + if ($multipart eq 'yes') { + $multipart = 'multipart'; + } else { + $multipart =''; + } + $result=&seperate_jme_window("HWVAL_$id","MOLECULE_$id",$molecule,$multipart); $result.= ''; } elsif ($target eq 'edit') { $result .=&Apache::edit::tag_start($target,$token); - $result .=&Apache::edit::text_arg('Starting Molecule:','molecule', - $token,40); + $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); - $result .='
'; + $molecule,'multipart'); + $result .='
'; $result .=&Apache::edit::text_arg('Correct Answer:','answer', $token,40); $result .=&Apache::edit::hidden_arg('jmeanswer',$token); @@ -131,18 +140,22 @@ sub start_chemresponse { $result .=&seperate_jme_window( &Apache::edit::html_element_name('answer'), &Apache::edit::html_element_name('jmeanswer'), - $jmeanswer); + $jmeanswer,'multipart'); + $result .=''. + &Apache::edit::select_arg('Multipart:','multipart', + ['no','yes'],$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'); + 'answer','jmeanswer', + 'multipart'); 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'})) { @@ -172,7 +185,7 @@ sub end_chemresponse { return $result; } -sub start_chemstructure { +sub start_organicstructure { my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; my $result; if ($target eq 'web') { @@ -194,7 +207,7 @@ CHEMOUTPUT $safeeval); $result .=&seperate_jme_window(undef, &Apache::edit::html_element_name('molecule'), - $molecule); + $molecule,'multipart'); $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); } elsif ($target eq 'modified') { my $constructtag=&Apache::edit::get_new_args($token,$parstack, @@ -205,7 +218,7 @@ CHEMOUTPUT return $result; } -sub end_chemstructure { +sub end_organicstructure { my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; my $result; if ($target eq "edit") { @@ -214,188 +227,11 @@ sub end_chemstructure { return $result; } -sub reaction_javascript { - my $result=< - -var level; -var reactants; -var products; - - -function parse_reaction(string) { - var reaction_array = string.split('->'); - var i; - reactants = new Array(0); - products = new Array(0); - - if (reaction_array.length > 0) - reactants = reaction_array[0].split(' +'); - if (reaction_array.length > 1) - products = reaction_array[1].split(' +'); -} - -function to_capa(string) { - var reaction = ""; - var i; - - parse_reaction(string); - - for (i = 0; i < reactants.length; i++) - reactants[i] = capa_component(reactants[i]); - for (i = 0; i < products.length; i++) - products[i] = capa_component(products[i]); - - reactants.sort(); - products.sort(); - - for (i = 0; i < reactants.length-1; i++) { - reaction += reactants[i]; - reaction += " + "; - } - if (i < reactants.length) - reaction += reactants[i]; - if (products.length > 0) { - reaction += " -> "; - for (i = 0; i < products.length-1; i++) { - reaction += products[i]; - reaction += " + "; - } - if (i < products.length) - reaction += products[i]; - } - - return reaction; -} - -function capa_component(string) { - var reactant = ""; - var i = 0; - level = 0; - - for (;string.substring(i,i+1) == ' ';i++) - ; - for (;isDigit(string.substring(i,i+1));i++) - reactant += string.substring(i,i+1); - for (;i < string.length;i++) - reactant += capa_char(string.substring(i,i+1)); - - return reactant; -} - -function capa_char(chr) { - if (level == 0) { // baseline - if (chr == '^') - level = 1; - if (chr == ' ') - return ""; - return chr; - } - if (level == 1) { // superscript - if (isDigit(chr)) - return chr; - level = 0; - return chr; - } -} - -function to_html(string) { - var reaction = ""; - var i; - - parse_reaction(string); - for (i = 0; i < reactants.length-1; i++) { - reaction += html_component(reactants[i]); - reaction += " + "; - } - if (i < reactants.length) - reaction += html_component(reactants[i]); - - if (products.length > 0) { - reaction += " ® "; - for (i = 0; i < products.length-1; i++) { - reaction += html_component(products[i]); - reaction += " + "; - } - if (i < products.length) - reaction += html_component(products[i]); - } - - return reaction; -} - -function html_component(string) { - var reactant = ""; - var i = 0; - level = 0; - - for (;string.substring(i,i+1) == ' ';i++) - ; - for (;isDigit(string.substring(i,i+1));i++) - reactant += string.substring(i,i+1); - for (;i < string.length;i++) - reactant += html_char(string.substring(i,i+1)); - - return reactant; -} - -function html_char(chr) { - if (level == 0) { // baseline - if (isDigit(chr)) - return chr.sub(); - if (chr == '^') { - level = 1; - return ""; - } - if (chr == '+') // baseline or superscript - return "?"; - if (chr == ' ') - return ""; - return chr; - } - if (level == 1) { // superscript - if (isDigit(chr)) - return chr.sup(); - if (chr == '+' || chr == '-') { - level = 0; - return chr.sup(); - } - if (chr == ' ') { - level = 0; - return ""; - } - level = 0; - return chr; - } -} - -function isDigit(string) { - if (string >= '0' && string <='9') - return 1; - else - return 0; -} - -function openHelpWindow() { - window.open("reaction_help.html","","scrollbars=yes,resizable=yes,width=550,height=600") -} - -function submitReaction() { - reaction = to_capa(document.form.text.value); - if (reaction == "") { - alert("Nothing to submit"); - } - else { - name = "INPUT" + ((problem < 10) ? "0" : "") + problem; - i = 0; - while (parent.opener.document.CAPA.elements[i].name != name) - i++; - parent.opener.document.CAPA.elements[i].value = reaction; - parent.opener.document.CAPA.submit(); - } -} - -REACTIONJAVASCRIPT +sub edit_reaction_button { + my ($id,$field,$molecule)=@_; + my $result=< +EDITREACTION return $result; } @@ -404,10 +240,14 @@ sub start_reactionresponse { my $result; my $id = &Apache::response::start_response($parstack,$safeeval); if ($target eq 'web') { - $result.=&reaction_javascript(); -# $result.=''; - $result.='\');newWindow.document.close()" />' + $result.=&edit_reaction_button($id,"HWVAL_$id"); } elsif ($target eq "edit") { + $result .=&Apache::edit::tag_start($target,$token); + $result .=&Apache::edit::text_arg('Answer:','answer',$token,40); + my $answer=&Apache::lonxml::get_param('answer',$parstack, + $safeeval); + $result .=&edit_reaction_button($id,&Apache::edit::html_element_name('answer'),$answer); + $result .=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); } return $result; }