[LON-CAPA-cvs] cvs: loncom /interface lonfeedback.pm /xml lontexconvert.pm

[albertel]

albertel		Mon Feb 28 22:21:05 2005 EDT

  Modified files:              
    /loncom/interface	lonfeedback.pm 
    /loncom/xml	lontexconvert.pm 
  Log:
  - <algebra> works in FDBK
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.154 loncom/interface/lonfeedback.pm:1.155
--- loncom/interface/lonfeedback.pm:1.154	Thu Feb 17 03:50:20 2005
+++ loncom/interface/lonfeedback.pm	Mon Feb 28 22:21:04 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.154 2005/02/17 08:50:20 albertel Exp $
+# $Id: lonfeedback.pm,v 1.155 2005/03/01 03:21:04 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2333,7 +2333,7 @@
       # <SUP>
       %html=(B=>1, I=>1, P=>1, A=>1, LI=>1, OL=>1, UL=>1, EM=>1,
 	     BR=>1, TT=>1, STRONG=>1, BLOCKQUOTE=>1, DIV=>1, IMG=>1,
-	     M=>1, SUB=>1, SUP=>1, SPAN=>1, 
+	     M=>1, ALGEBRA=>1, SUB=>1, SUP=>1, SPAN=>1, 
 	     H1=>1, H2=>1, H3=>1, H4=>1, H5=>1);
   }
 # Do the substitution of everything that is not explicitly allowed
Index: loncom/xml/lontexconvert.pm
diff -u loncom/xml/lontexconvert.pm:1.63 loncom/xml/lontexconvert.pm:1.64
--- loncom/xml/lontexconvert.pm:1.63	Mon Feb 28 17:17:09 2005
+++ loncom/xml/lontexconvert.pm	Mon Feb 28 22:21:05 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # TeX Conversion Module
 #
-# $Id: lontexconvert.pm,v 1.63 2005/02/28 22:17:09 albertel Exp $
+# $Id: lontexconvert.pm,v 1.64 2005/03/01 03:21:05 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -259,6 +259,18 @@
             $outmessage.=&smiley($_); $tex=1;
 	}
     }
+    $message=$outmessage; $outmessage=''; $tex=0;
+    foreach (split(/(?:\&lt\;|\<)\/*algebra\s*(?:\&gt\;|\>)/i,$message)) {
+	if ($tex) {
+	    if ($email) {
+		$outmessage.='</pre><tt>'.&algebra($_,'web').'</tt><pre>'; $tex=0;
+	    } else {
+		$outmessage.=&algebra($_,'web'); $tex=0;
+	    }
+	} else {
+            $outmessage.=$_; $tex=1;
+	}
+    }
     if (wantarray) {
 	return ($outmessage,$errorstring);
     } else {