[LON-CAPA-cvs] cvs: loncom /homework chemresponse.pm

[albertel]

albertel		Mon Jun 30 16:58:52 2003 EDT

  Modified files:              
    /loncom/homework	chemresponse.pm 
  Log:
  - not using this (using html files right now)
  
  
Index: loncom/homework/chemresponse.pm
diff -u loncom/homework/chemresponse.pm:1.7 loncom/homework/chemresponse.pm:1.8
--- loncom/homework/chemresponse.pm:1.7	Mon Jun 30 16:41:12 2003
+++ loncom/homework/chemresponse.pm	Mon Jun 30 16:58:52 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # chemical equation style response
 #
-# $Id: chemresponse.pm,v 1.7 2003/06/30 20:41:12 albertel Exp $
+# $Id: chemresponse.pm,v 1.8 2003/06/30 20:58:52 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -224,197 +224,6 @@
     if ($target eq "edit") {
 	$result.= &Apache::edit::tag_end($target,$token,'');
     }
-    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;
 }