--- loncom/homework/chemresponse.pm 2003/05/04 08:45:22 1.1 +++ loncom/homework/chemresponse.pm 2003/05/05 20:43:46 1.4 @@ -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.4 2003/05/05 20:43:46 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -32,11 +32,25 @@ use Apache::lonxml; use Apache::lonnet; BEGIN { - &Apache::lonxml::register('Apache::chemresponse',('chemresponse','chemstructure')); + &Apache::lonxml::register('Apache::chemresponse',('chemresponse','chemstructure','reactionresponse')); } sub seperate_jme_window { - my ($id,$molecule)=@_; + my ($smile_input,$jme_input,$molecule)=@_; + my $smilesection; + if (defined($smile_input)) { + $smilesection=< @@ -47,14 +61,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"); } @@ -98,8 +111,33 @@ sub start_chemresponse { $molecule=&Apache::lonxml::get_param('molecule',$parstack, $safeeval); } - $result=&seperate_jme_window($id,$molecule); + $result=&seperate_jme_window("HWVAL_$id","MOLECULE_$id",$molecule); $result.= ''; + } elsif ($target eq 'edit') { + $result .=&Apache::edit::tag_start($target,$token); + $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 .='
'; + $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); + $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'); + if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } } return $result; } @@ -127,15 +165,261 @@ sub end_chemresponse { $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,''); } &Apache::response::end_response; return $result; } sub start_chemstructure { + 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); + $result=< + + + +CHEMOUTPUT + } 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 .=&Apache::edit::text_arg('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 .=&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'); + if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } + } + return $result; } sub end_chemstructure { + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; + my $result; + if ($target eq "edit") { + $result.= &Apache::edit::tag_end($target,$token,''); + } + 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 + 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 'web') { + $result.=&reaction_javascript(); +# $result.=''; + $result.='\');newWindow.document.close()" />' + } elsif ($target eq "edit") { + } + return $result; +} + +sub end_reactionresponse { + my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; + my $result; + if ($target eq "edit") { + $result.= &Apache::edit::tag_end($target,$token,''); + } + &Apache::response::end_response; + return $result; } 1;