--- loncom/xml/lontexconvert.pm	2006/10/24 01:28:47	1.80
+++ loncom/xml/lontexconvert.pm	2008/01/29 11:18:06	1.86
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # TeX Conversion Module
 #
-# $Id: lontexconvert.pm,v 1.80 2006/10/24 01:28:47 albertel Exp $
+# $Id: lontexconvert.pm,v 1.86 2008/01/29 11:18:06 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -108,6 +108,13 @@ sub convert_real {
     $xmlstring=~s/^\s*\<br clear\=\"all\"/\<br/s;
     $xmlstring=~s/^\s*//;
     $xmlstring=~s/\s*$//;
+    #
+    # \rightleftharpoons is not converted by tth but maps
+    # reasonably well to &#8660;.  If we get many more of these,
+    # we're going to need to have a translation sub.
+    #
+    $xmlstring=~s/\\rightleftharpoons/\&\#8660;/g;
+
     &Apache::lonxml::end_alarm();
     return ($xmlstring,$errorstring);
 }
@@ -151,7 +158,7 @@ ENDCONV
 
 sub clean_out_math_mode {
     my ($texstring)=@_;
-    $$texstring=~s/(?!\\)\$//g;
+    $$texstring=~s/(?<!\\)\$//g;
     $$texstring=~s/\\[\)\(\]\[]//g;
     $$texstring=~s/\\ensuremath//g;
     return '';
@@ -200,15 +207,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;
@@ -232,7 +259,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) {