--- loncom/xml/lontexconvert.pm	2014/06/18 06:48:47	1.112.2.4
+++ loncom/xml/lontexconvert.pm	2013/09/15 23:06:46	1.113
@@ -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.113 2013/09/15 23:06:46 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -54,37 +54,17 @@ use IO::Socket::INET;
 #
 # Table of substitutions to unicode characters.
 #
-
-my %unicode_harpoons = (
-                        '\rightleftharpoons'  => 0x21cc,
-                      );
-
 my %unicode_translations = (
+    '\rightleftharpoons'  => 0x21cc,
 
-# Brackets - unicode for browsers/OS which support it.
-
-    ''             => 0x23a1,
-    ''             => 0x23a2,
-    ''             => 0x23a3,
-    ''             => 0x23a4,
-    ''             => 0x23a5,
-    ''             => 0x23a6,
-
-#  Parens - unicode for browsers/OS which support it
-
-    ''              => 0x239b,
-    ''              => 0x239c,
-    ''              => 0x239d,
-    ''              => 0x239e,
-    ''              => 0x239f,
-    ''              => 0x23a0,
-
-);
-
-my %ascii_8bit_translations = (
-
-# Brackets - pure 8-bit ascii ugliness for browsers/OS which can't handle unicode
+# Brackets - unicode is commented out with pure 8-bit ascii ugliness while we need it.
 
+#    ''             => 0x23a1,
+#    ''             => 0x23a2,
+#    ''             => 0x23a3,   # when unicode catches up with browsers
+#    ''             => 0x23a4,   # use these instead of the cheesey brackets below
+#    ''             => 0x23a5,
+#    ''             => 0x23a6   
     ''              => 0x5b,
     ''              => 0x5b,    # '['
     ''              => 0x5b,
@@ -92,14 +72,24 @@ my %ascii_8bit_translations = (
     ''              => 0x5d,
     ''              => 0x5d,
 
-# Parens - pure 8-bit ascii ugliness for browsers/OS which can't handle unicode
+#  Parens..again the unicode is commented out with the 8-bit ascii ugliness
+#  turned on until browsers catch up with the unicode world.
+
+#    ''              => 0x239b,
+#    ''              => 0x239c,
+#    ''              => 0x239d,
+#    ''              => 0x239e,
+#    ''              => 0x239f,
+#    ''              => 0x23a0
 
     ''              => 0x28,
     ''              => 0x28,      # '('
     ''              => 0x28,
+
     ''              => 0x29,
     ''              => 0x29,      # '('
-    ''              => 0x29,
+    ''              => 0x29
+
 
 );
 
@@ -181,33 +171,16 @@ sub convert_real {
     &Apache::lonxml::end_alarm();
 
     #
-    # Several strings produced by tth require
+    #  Several strings produced by tth require
     # transliteration -> unicode equivalents to render reliably
-    # in browsers. %unicode_translations and %unicode_harpoons are tables of
-    # string->substitution which we now apply. (%ascii_8bit_translations used
-    # instead for Windows XP and mobile devices.
-
-    my $use_ascii;
-    if ($env{'browser.os'} eq 'win') {
-        if (($env{'browser.osversion'}) && ($env{'browser.osversion'} < 6.0)) {
-            $use_ascii = 1;
-        }
-    }
-    if ($env{'browser.mobile'}) {
-        $use_ascii = 1;
-    }
+    # in browsers. %unicode_translations is a table of
+    # string->substitution which we now apply:
 
     foreach my $pattern (keys(%unicode_translations)) {
 	my $unicode = $unicode_translations{$pattern};
-	if ($use_ascii) {
-	    $unicode = $ascii_8bit_translations{$pattern};
-	}
 	$xmlstring = &unicode_subst($xmlstring, $pattern, $unicode);
     }
 
-    foreach my $pattern (keys(%unicode_harpoons)) {
-        $xmlstring = &unicode_subst($xmlstring, $pattern, $unicode_harpoons{$pattern});
-    }
 
     return ($xmlstring,$errorstring);
 }
@@ -296,6 +269,16 @@ sub MathJax_converted {
         return
           '<script type="text/javascript" src="/adm/MathJax/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>'."\n";
     }
+    #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];
+    #}
 }
 
 
@@ -432,7 +415,7 @@ sub converted {
     } elsif ($mode =~ /jsmath/i) {
 	return &jsMath_converted($string);
     } elsif ($mode =~ /mathjax/i) {
-        return &MathJax_converted($string);
+	return &MathJax_converted($string);
     } elsif ($mode =~ /mimetex/i) {
 	return &mimetex_converted($string);
     } elsif ($mode =~ /raw/i) {
@@ -597,8 +580,6 @@ sub postprocess_algebra {
     $string =~s/\\lim\\left\((.+?),(.+?),(.+?)\\right\)/\\lim_{$2\\to $3}$1/gs;
     return $string;
 }
-
-
 1;
 __END__
 
@@ -644,7 +625,7 @@ Header
 =item jsMath_converted()
 
 =item MathJax_converted()
-        - Mimics the jsMath functionality
+	- Mimics the jsMath functionality
 
 =item tex_engine()