--- loncom/xml/lontexconvert.pm 2008/01/29 11:04:10 1.85 +++ loncom/xml/lontexconvert.pm 2008/02/06 10:16:00 1.87 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # TeX Conversion Module # -# $Id: lontexconvert.pm,v 1.85 2008/01/29 11:04:10 foxr Exp $ +# $Id: lontexconvert.pm,v 1.87 2008/02/06 10:16:00 foxr Exp $ # # Copyright Michigan State University Board of Trustees # @@ -85,7 +85,6 @@ $Apache::lontexconvert::messedup=0; # into the safe space since opcode checks only occur at compile time sub convert_real { my ($texstring)=@_; - &Apache::lonnet::logthis("convert_real converting '$$texstring"); my ($xmlstring,$errorstring); local $SIG{SEGV}=sub { $Apache::lontexconvert::messedup=1; die; }; local $SIG{ALRM}=sub { @@ -96,14 +95,12 @@ sub convert_real { }; &Apache::lonxml::start_alarm(); if ($env{'browser.mathml'}) { - &Apache::lonnet::logthis("mathml translation"); $xmlstring=&tth::ttm($$texstring); $xmlstring=~s/\/\/g; $xmlstring=~s/\/\/g; $xmlstring=~s/\/\\<\/p\>/g; $errorstring.=&tth::ttmerror(); } else { - &Apache::lonnet::logthis("tth translation"); $xmlstring=&tth::tth($$texstring); $errorstring.=&tth::ttherror(); $xmlstring=~s---g; @@ -116,9 +113,9 @@ sub convert_real { # reasonably well to ⇔. If we get many more of these, # we're going to need to have a translation sub. # - $xmlstring=~s/\\rightleftharpoons/\&\#8660;/g; + my $lrharpoon = pack("U", 0x21cc); + $xmlstring=~s/\\rightleftharpoons/$lrharpoon/g; - &Apache::lonnet::logthis("Final result: $xmlstring"); &Apache::lonxml::end_alarm(); return ($xmlstring,$errorstring); }