[BACK]Return to chemresponse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/chemresponse.pm between versions 1.7 and 1.8

version 1.7, 2003/06/30 20:41:12 version 1.8, 2003/06/30 20:58:52
Line 227  sub end_organicstructure { Line 227  sub end_organicstructure {
     return $result;      return $result;
 }  }
   
 sub reaction_javascript {  
     my $rightarrow;  
     if ($ENV{'browser.unicode'}) {  
  $rightarrow=" → "  
     } else {  
  $rightarrow=" <font face=symbol>&reg;</font> ";  
     }  
     my $result=<<REACTIONJAVASCRIPT;  
     <script language="JavaScript">  
   
 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 += " $rightarrow ";  
     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();  
   }  
 }  
 </script>  
 REACTIONJAVASCRIPT  
     return $result;  
 }  
   
 sub start_reactionresponse {  sub start_reactionresponse {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
     my $result;      my $result;
Removed from v.1.7  
changed lines
  Added in v.1.8

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>