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

[albertel]

albertel		Wed Feb  5 17:50:44 2003 EDT

  Modified files:              
    /loncom/xml	lontexconvert.pm 
  Log:
  - Fixed the FIXME, -L works properly, and need to do proper unicode for browsers
  
  
  
Index: loncom/xml/lontexconvert.pm
diff -u loncom/xml/lontexconvert.pm:1.14 loncom/xml/lontexconvert.pm:1.15
--- loncom/xml/lontexconvert.pm:1.14	Mon Feb  3 13:03:53 2003
+++ loncom/xml/lontexconvert.pm	Wed Feb  5 17:50:44 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # TeX Conversion Module
 #
-# $Id: lontexconvert.pm,v 1.14 2003/02/03 18:03:53 harris41 Exp $
+# $Id: lontexconvert.pm,v 1.15 2003/02/05 22:50:44 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -122,20 +122,25 @@
 sub msgtexconverted {
     my $message=shift;
 
-    #FIXME this crap needs to go but right now the -L option might be
-    #ignored if this isn;t the first time the tth engine is used
-    #thus the \\document class crap, it makes sure we init the LaTeX stuff
     if ($ENV{'browser.mathml'}) {
-      &tth::ttminit();
-      &tth::ttmoptions("-L");
+	&tth::ttminit();
+	if ($ENV{'browser.unicode'}) {
+	    &tth::ttmoptions('-L -u1');
+	} else {
+	    &tth::ttmoptions('-L -u0');
+	}
     } else {
-      &tth::tthinit();
-      &tth::tthoptions("-L");
+	&tth::tthinit();
+	if ($ENV{'browser.unicode'}) {
+	    &tth::tthoptions('-L -u1');
+	} else {
+	    &tth::tthoptions('-L -u0');
+	}
     }
-    $message=~s/(\$\$.+?\$\$)/&to_convert("\\documentclass{article}".$1)/ge;
-    $message=~s/(\$.+?\$)/&to_convert("\\documentclass{article}".$1)/ge;
-    $message=~s/(\\\(.+?\\\))/&to_convert("\\documentclass{article}".$1)/ge;
-    $message=~s/(\\\[.+?\\\])/&to_convert("\\documentclass{article}".$1)/ge;
+    $message=~s/(\$\$.+?\$\$)/&to_convert($1)/ge;
+    $message=~s/(\$.+?\$)/&to_convert($1)/ge;
+    $message=~s/(\\\(.+?\\\))/&to_convert($1)/ge;
+    $message=~s/(\\\[.+?\\\])/&to_convert($1)/ge;
     return $message.$errorstring;
 }