--- loncom/xml/lontexconvert.pm 2006/03/24 18:09:23 1.70 +++ loncom/xml/lontexconvert.pm 2006/05/30 12:47:53 1.75 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # TeX Conversion Module # -# $Id: lontexconvert.pm,v 1.70 2006/03/24 18:09:23 albertel Exp $ +# $Id: lontexconvert.pm,v 1.75 2006/05/30 12:47:53 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -42,30 +42,35 @@ package Apache::lontexconvert; use strict; use tth(); use vars qw($errorstring); -use Apache(); -use Apache::lonmsg(); -use Apache::lonxml(); -use Apache::lonmenu(); +#use Apache::lonxml(); use Apache::lonlocal; use Apache::lonnet; +use lib '/home/httpd/lib/perl/'; +use LONCAPA; + # ====================================================================== Header sub init_tth { my $options=$env{'course.'.$env{'request.course.id'}.'.tthoptions'}; + if ($options =~ /\S/) { + $options = ' '.$options; + } else { + undef($options); + } if ($env{'browser.mathml'}) { &tth::ttminit(); if ($env{'browser.unicode'}) { - &tth::ttmoptions('-L -u1 '.$options); + &tth::ttmoptions('-L -u1'.$options); } else { - &tth::ttmoptions('-L -u0 '.$options); + &tth::ttmoptions('-L -u0'.$options); } } else { &tth::tthinit(); if ($env{'browser.unicode'}) { - &tth::tthoptions('-L -u1 '.$options); + &tth::tthoptions('-L -u1'.$options); } else { - &tth::tthoptions('-L -u0 '.$options); + &tth::tthoptions('-L -u0'.$options); } } } @@ -182,7 +187,7 @@ sub jsMath_converted { ''."\n". - ''."\n"; + ''."\n"; } sub jsMath_process { return '' if !$jsMath_sent_header; @@ -190,6 +195,16 @@ sub jsMath_converted { } } +sub init_math_support { + &init_tth(); + &Apache::lontexconvert::jsMath_reset(); + if ($env{'environment.texengine'} eq 'jsMath' || + $env{'form.texengine'} eq 'jsMath' ) { + return &Apache::lontexconvert::jsMath_header(); + } + return; +} + sub mimetex_converted { my $texstring=shift; my $displaystyle=&displaystyle($texstring); @@ -199,7 +214,7 @@ sub mimetex_converted { if ($displaystyle) { $$texstring='\\displaystyle \\Large '.$$texstring; } - my $result=''; + my $result=''; if ($displaystyle) { $result='
'.$result.'
'; }