loncom/xml/lontexconvert.pm - diff

Return to lontexconvert.pm CVS log

Up to [LON-CAPA] / loncom / xml

-version 1.14, 2003/02/03 18:03:53
+version 1.15, 2003/02/05 22:50:44
  Line 122  sub to_convert {
  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::ttminit();
-       &tth::ttmoptions("-L");
+ 	if ($ENV{'browser.unicode'}) {
+ 	    &tth::ttmoptions('-L -u1');
+ 	} else {
+ 	    &tth::ttmoptions('-L -u0');
+ 	}
      } else {
-       &tth::tthinit();
+ 	&tth::tthinit();
-       &tth::tthoptions("-L");
+ 	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($1)/ge;
-     $message=~s/(\$.+?\$)/&to_convert("\\documentclass{article}".$1)/ge;
+     $message=~s/(\$.+?\$)/&to_convert($1)/ge;
-     $message=~s/(\\\(.+?\\\))/&to_convert("\\documentclass{article}".$1)/ge;
+     $message=~s/(\\\(.+?\\\))/&to_convert($1)/ge;
-     $message=~s/(\\\[.+?\\\])/&to_convert("\\documentclass{article}".$1)/ge;
+     $message=~s/(\\\[.+?\\\])/&to_convert($1)/ge;
      return $message.$errorstring;
  }