--- loncom/xml/lontexconvert.pm	2006/10/23 18:49:47	1.79
+++ loncom/xml/lontexconvert.pm	2007/08/14 19:32:35	1.84
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # TeX Conversion Module
 #
-# $Id: lontexconvert.pm,v 1.79 2006/10/23 18:49:47 albertel Exp $
+# $Id: lontexconvert.pm,v 1.84 2007/08/14 19:32:35 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -151,7 +151,7 @@ ENDCONV
 
 sub clean_out_math_mode {
     my ($texstring)=@_;
-    $$texstring=~s/(?!\\)\$//g;
+    $$texstring=~s/(?<!\\)\$//g;
     $$texstring=~s/\\[\)\(\]\[]//g;
     $$texstring=~s/\\ensuremath//g;
     return '';
@@ -184,6 +184,10 @@ sub jsMath_converted {
 	push(@jsMath_sent_header,0);
     }
     sub jsMath_header {
+	if (!@jsMath_sent_header) {
+	    &Apache::lonnet::logthis("mismatched calls of jsMath_header and jsMath_process");
+	    return '';
+	}
 	return '' if $jsMath_sent_header[-1];
 	$jsMath_sent_header[-1]=1;
 	return
@@ -196,15 +200,35 @@ sub jsMath_converted {
     sub jsMath_process {
 	my $state = pop(@jsMath_sent_header);
 	return '' if !$state;
-	return '<script type="text/javascript">jsMath.Process()</script>';
+	return "\n".
+	    '<script type="text/javascript">jsMath.Process()</script>'."\n";
+    }
+    sub jsMath_state {
+	my ($level) = @_;
+	return $jsMath_sent_header[$level];
+    }
+}
+
+sub tex_engine {
+    if (exists($env{'form.texengine'})) {
+	return $env{'form.texengine'};
+    }    
+    if ($env{'request.course.id'}
+	&& exists($env{'course.'.$env{'request.course.id'}.'.texengine'})) {
+	return $env{'course.'.$env{'request.course.id'}.'.texengine'};
+    }
+    if (exists($env{'environment.texengine'})) {
+	return $env{'environment.texengine'};
     }
+    return 'tth';
 }
 
 sub init_math_support {
+    my ($inherit_jsmath) = @_;
     &init_tth();
     &Apache::lontexconvert::jsMath_push();
-    if ($env{'environment.texengine'} eq 'jsMath' ||
-	$env{'form.texengine'}        eq 'jsMath' ) {
+    if (lc(&tex_engine()) eq 'jsmath' ||
+	($inherit_jsmath && &jsMath_state(-2))) {
 	return &Apache::lontexconvert::jsMath_header();
     }
     return;
@@ -228,7 +252,7 @@ sub mimetex_converted {
 
 sub converted {
     my ($string,$mode)=@_;
-    if ($mode eq '') { $mode=$env{'environment.texengine'}; }
+    if ($mode eq '') { $mode = &tex_engine(); }
     if ($mode =~ /tth/i) {
 	return &tth_converted($string);
     } elsif ($mode =~ /jsmath/i) {