--- loncom/xml/lontexconvert.pm	2005/06/09 02:17:11	1.66
+++ loncom/xml/lontexconvert.pm	2005/07/05 18:59:03	1.67
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # TeX Conversion Module
 #
-# $Id: lontexconvert.pm,v 1.66 2005/06/09 02:17:11 albertel Exp $
+# $Id: lontexconvert.pm,v 1.67 2005/07/05 18:59:03 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -165,7 +165,28 @@ sub jsMath_converted {
     my $tag='span';
     if (&displaystyle($texstring)) { $tag='div'; }
     &clean_out_math_mode($texstring);
-    return '<'.$tag.' class="math">'.$$texstring.'</'.$tag.'>';
+    return &jsMath_header().
+	'<'.$tag.' class="math">'.$$texstring.'</'.$tag.'>';
+}
+
+{
+    my $jsMath_sent_header;
+    sub jsMath_reset {
+	$jsMath_sent_header=0;
+    }
+    sub jsMath_header {
+	return '' if $jsMath_sent_header;
+	$jsMath_sent_header=1;
+	return
+            '<script type="text/javascript">
+                     function NoFontMessage () {}
+                   </script>'."\n".
+	    '<script src="/adm/jsMath/jsMath.js"></script>'."\n";
+    }
+    sub jsMath_process {
+	return '' if !$jsMath_sent_header;
+	return '<script type="text/javascript">jsMath.Process()</script>';
+    }
 }
 
 sub mimetex_converted {
@@ -185,14 +206,16 @@ sub mimetex_converted {
 }
 
 sub converted {
-    if ($env{'environment.texengine'} eq 'tth') {
-	return &tth_converted;
-    } elsif ($env{'environment.texengine'} eq 'jsMath') {
-	return &jsMath_converted;
-    } elsif ($env{'environment.texengine'} eq 'mimetex') {
-	return &mimetex_converted;
+    my ($string,$mode)=@_;
+    if ($mode eq '') { $mode=$env{'environment.texengine'}; }
+    if ($mode eq 'tth') {
+	return &tth_converted($string);
+    } elsif ($mode eq 'jsMath') {
+	return &jsMath_converted($string);
+    } elsif ($mode eq 'mimetex') {
+	return &mimetex_converted($string);
     }
-    return &tth_converted;
+    return &tth_converted($string);
 }
 
 # ====================================================================== Footer