--- loncom/xml/lontexconvert.pm	2014/06/18 06:48:47	1.112.2.4
+++ loncom/xml/lontexconvert.pm	2019/02/15 20:56:22	1.122
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # TeX Conversion Module
 #
-# $Id: lontexconvert.pm,v 1.112.2.4 2014/06/18 06:48:47 raeburn Exp $
+# $Id: lontexconvert.pm,v 1.122 2019/02/15 20:56:22 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -178,6 +178,7 @@ sub convert_real {
     $xmlstring=~s/^\s*\<br clear\=\"all\"/\<br/s;
     $xmlstring=~s/^\s*//;
     $xmlstring=~s/\s*$//;
+    $xmlstring=~s/^<br \/><table/<table/;
     &Apache::lonxml::end_alarm();
 
     #
@@ -270,11 +271,19 @@ sub displaystyle {
 
 sub MathJax_converted {
     my $texstring=shift;
-    my $tag='math/tex;';
-    if (&displaystyle($texstring)) { $tag='math/tex; mode=display'; }
+    my ($tag,$startspan,$endspan);
+    $tag='math/tex;';
+    if (&displaystyle($texstring)) {
+        $tag='math/tex; mode=display';
+        $startspan='';
+        $endspan='';
+    } else {
+        $startspan='<span style="display:inline-block;">';
+        $endspan='</span>';
+    }
     &clean_out_math_mode($texstring);
-    return &MathJax_header().
-      '<script type="'.$tag.'">'.$$texstring.'</script>';
+    return &MathJax_header().$startspan.
+      '<script type="'.$tag.'">'.$$texstring.'</script>'.$endspan;
 }
 
 {
@@ -296,79 +305,52 @@ sub MathJax_converted {
         return
           '<script type="text/javascript" src="/adm/MathJax/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>'."\n";
     }
-}
-
-
-sub jsMath_converted {
-    my $texstring=shift;
-    my $tag='span';
-    if (&displaystyle($texstring)) { $tag='div'; }
-    &clean_out_math_mode($texstring);
-    return &jsMath_header().
-	'<'.$tag.' class="math">'.$$texstring.'</'.$tag.'>';
-}
-
-{
-    my @jsMath_sent_header;
-    sub jsMath_reset {
-	undef(@jsMath_sent_header);
-    }
-    sub jsMath_push {
-	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
-            '<script type="text/javascript">
-                     function NoFontMessage () {}
-                     jsMath = {Parser: {prototype: {environments: {\'eqnarray*\' :[\'Array\',null,null,\'rcl\',[5/18,5/18],3,\'D\']}}}};
-                   </script>'."\n".
-	    '<script type="text/javascript" src="/adm/jsMath/jsMath.js"></script>'."\n";
-    }
-    sub jsMath_process {
-	my $state = pop(@jsMath_sent_header);
-	return '' if !$state;
-	return "\n".
-	    '<script type="text/javascript">jsMath.Process()</script>'."\n";
-    }
-    sub jsMath_state {
-	my ($level) = @_;
-	return $jsMath_sent_header[$level];
-    }
+    #sub MathJax_process {
+    #    my $state = pop(@MathJax_sent_header);
+    #    return '' if !$state;
+    #    return "\n".
+    #        '<script type="text/javascript">MathJax.Process()</script>'."\n";
+    #}
+    #sub MathJax_state {
+    #    my ($level) = @_;
+    #    return $MathJax_sent_header[$level];
+    #}
 }
 
 sub tex_engine {
     if (exists($env{'form.texengine'})) {
 	if ($env{'form.texengine'} ne '') {
+            if (lc($env{'form.texengine'}) eq 'jsmath') {
+                return 'MathJax';
+            }
             return $env{'form.texengine'};
         }
     }    
     if ($env{'request.course.id'}
 	&& exists($env{'course.'.$env{'request.course.id'}.'.texengine'})) {
+        if (lc($env{'course.'.$env{'request.course.id'}.'.texengine'}) eq 'jsmath') {
+            return 'MathJax';
+        }
 	return $env{'course.'.$env{'request.course.id'}.'.texengine'};
     }
     if (exists($env{'environment.texengine'})) {
+        if (lc($env{'environment.texengine'}) eq 'jsmath') {
+            return 'MathJax';
+        }
 	return $env{'environment.texengine'};
     }
-    return 'tth';
+    my $dom = $env{'request.role.domain'} || $env{'user.domain'};
+    my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);
+    if ($domdefaults{'texengine'} ne '') {
+        return $domdefaults{'texengine'};
+    }
+    return $Apache::lonnet::deftex;
 }
 
 sub init_math_support {
-    my ($inherit_jsmath) = @_;
     &init_tth();
-    &Apache::lontexconvert::jsMath_push();
-    if (lc(&tex_engine()) eq 'jsmath' ||
-	($inherit_jsmath && &jsMath_state(-2))) {
-	return &Apache::lontexconvert::jsMath_header();
-    }
     &Apache::lontexconvert::MathJax_push();
-    if (lc(&tex_engine()) eq 'mathjax') { # ||
-        #($inherit_jsmath && &jsMath_state(-2))) {
+    if (lc(&tex_engine()) eq 'mathjax') {
         return &Apache::lontexconvert::MathJax_header();
     }
     return;
@@ -430,9 +412,9 @@ sub converted {
     if ($mode =~ /tth/i) {
 	return &tth_converted($string);
     } elsif ($mode =~ /jsmath/i) {
-	return &jsMath_converted($string);
-    } elsif ($mode =~ /mathjax/i) {
         return &MathJax_converted($string);
+    } elsif ($mode =~ /mathjax/i) {
+	return &MathJax_converted($string);
     } elsif ($mode =~ /mimetex/i) {
 	return &mimetex_converted($string);
     } elsif ($mode =~ /raw/i) {
@@ -579,7 +561,7 @@ sub postprocess_algebra {
     # $string =~s/\\fun/ /g;
 
     # sqrt(3,4) means the 4 root of 3
-    $string =~s/\\sqrt{([^,]+),([^\}]+)}/\\sqrt[$2]{$1}/gs;
+    $string =~s/\\sqrt\{([^,]+),([^\}]+)}/\\sqrt[$2]{$1}/gs;
 
     # log(3,4) means the log base 4 of 3
     $string =~s/\\log\\left\((.+?),(.+?)\\right\)/\\log_{$2}\\left($1\\right)/gs;
@@ -641,14 +623,10 @@ Header
 =item displaystyle()
 
 
-=item jsMath_converted()
-
 =item MathJax_converted()
-        - Mimics the jsMath functionality
 
 =item tex_engine()
 
-
 =item init_math_support()
 
 =item mimetex_valign()