--- loncom/xml/lontexconvert.pm 2004/01/28 17:16:27 1.29 +++ loncom/xml/lontexconvert.pm 2004/03/04 15:41:18 1.32 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # TeX Conversion Module # -# $Id: lontexconvert.pm,v 1.29 2004/01/28 17:16:27 albertel Exp $ +# $Id: lontexconvert.pm,v 1.32 2004/03/04 15:41:18 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -68,56 +68,57 @@ sub init_tth { &tth::tthoptions('-L -u0 '.$options); } } - &Apache::lonnet::logthis("caled and use $options"); - &Apache::lonnet::logthis("caller ".join(':',caller(0))); - } sub header { - $errorstring=''; - my $time=time; - &init_tth(); - return &Apache::lonxml::xmlbegin(). - &Apache::lonxml::fontsettings(). - "\n
\n". - &Apache::lonmenu::registerurl(undef,'tex'). - "\n\n"; + $errorstring=''; + my $time=time; + &init_tth(); + return &Apache::lonxml::xmlbegin(). + &Apache::lonxml::fontsettings(). + "\n\n". + &Apache::lonmenu::registerurl(undef,'tex'). + "\n\n"; } # ================================================================== Conversion $Apache::lontexconvert::messedup=0; sub converted { - my $texstring=shift; - my $xmlstring='[UNDISPLAYABLE]'; - if ($Apache::lontexconvert::messedup) { - return '[TeX Unconverted Due To Previous Errors]'; - } - eval(<<'ENDCONV'); - { - local $SIG{SEGV}=sub { $Apache::lontexconvert::messedup=1; die; }; - if ($ENV{'browser.mathml'}) { - $xmlstring=&tth::ttm($$texstring); - $xmlstring=~s/\