--- loncom/xml/lontexconvert.pm 2005/04/07 06:56:27 1.65
+++ loncom/xml/lontexconvert.pm 2006/05/17 22:08:08 1.73
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# TeX Conversion Module
#
-# $Id: lontexconvert.pm,v 1.65 2005/04/07 06:56:27 albertel Exp $
+# $Id: lontexconvert.pm,v 1.73 2006/05/17 22:08:08 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -42,10 +42,7 @@ 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;
@@ -70,17 +67,6 @@ sub init_tth {
}
}
-sub header {
- $errorstring='';
- my $time=time;
- &init_tth();
- return &Apache::lonxml::xmlbegin().
- "\n<head>\n".
- &Apache::lonxml::fontsettings().
- &Apache::lonmenu::registerurl(undef,'tex').
- "\n</head>\n";
-}
-
# ================================================================== Conversion
$Apache::lontexconvert::messedup=0;
@@ -137,8 +123,20 @@ ENDCONV
$errorstring) {
&Apache::lonnet::logthis("Trying to kill myself");
$Apache::lontexconvert::messedup=1;
- my $request=Apache->request();
- $request->child_terminate();
+ if (ref($Apache::lonxml::request)) {
+ $Apache::lonxml::request->child_terminate();
+ } else {
+ my $request;
+ eval { $request=Apache->request; };
+ if (!$request) {
+ eval { $request=Apache2::RequestUtil->request; };
+ }
+ if ($request) {
+ $request->child_terminate();
+ } else {
+ &Apache::lonnet::logthis("Unable to find a request to do child_terminate on");
+ }
+ }
}
return $xmlstring;
}
@@ -165,7 +163,38 @@ sub jsMath_converted {
my $tag='span';
if (&displaystyle($texstring)) { $tag='div'; }
&clean_out_math_mode($texstring);
- return '<'.$tag.' class="math">'.$$texstring.'</'.$tag.'>';
+ return &jsMath_header().
+ '<'.$tag.' class="math">'.$$texstring.'</'.$tag.'>';
+}
+
+{
+ my $jsMath_sent_header;
+ sub jsMath_reset {
+ $jsMath_sent_header=0;
+ }
+ sub jsMath_header {
+ return '' if $jsMath_sent_header;
+ $jsMath_sent_header=1;
+ return
+ '<script type="text/javascript">
+ function NoFontMessage () {}
+ </script>'."\n".
+ '<script type="text/javascript" src="/adm/jsMath/jsMath.js"></script>'."\n";
+ }
+ sub jsMath_process {
+ return '' if !$jsMath_sent_header;
+ return '<script type="text/javascript">jsMath.Process()</script>';
+ }
+}
+
+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 {
@@ -185,28 +214,16 @@ sub mimetex_converted {
}
sub converted {
- if ($env{'environment.texengine'} eq 'tth') {
- return &tth_converted;
- } elsif ($env{'environment.texengine'} eq 'jsMath') {
- return &jsMath_converted;
- } elsif ($env{'environment.texengine'} eq 'mimetex') {
- return &mimetex_converted;
- }
- return &tth_converted;
-}
-
-# ====================================================================== Footer
-
-sub footer {
- my $xmlstring='';
- if ($env{'request.state'} eq 'construct') {
- $xmlstring.='<address>'.$errorstring.'</address>';
- } else {
- &Apache::lonmsg::author_res_msg($env{'request.filename'},$errorstring);
- }
-# -------------------------------------------------------------------- End Body
- $xmlstring.=&Apache::lonxml::xmlend();
- return $xmlstring;
+ my ($string,$mode)=@_;
+ if ($mode eq '') { $mode=$env{'environment.texengine'}; }
+ if ($mode =~ /tth/i) {
+ return &tth_converted($string);
+ } elsif ($mode =~ /jsmath/i) {
+ return &jsMath_converted($string);
+ } elsif ($mode =~ /mimetex/i) {
+ return &mimetex_converted($string);
+ }
+ return &tth_converted($string);
}
# ------------------------------------------------------------ Message display
@@ -323,10 +340,6 @@ sub postprocess_algebra {
# moodle had these and I don't know why, ignoring them for now
# $string =~s/\\fun/ /g;
- # sqrt(3,4) -> \sqrt\let{3,4\right}, which is annoying
- $string =~s/\\left\{/\{/g;
- $string =~s/\\right\}/\}/g;
-
# remove the extra () in the denominator of a \frac
$string =~s/\\frac{(.+?)}{\\left\((.+?)\\right\)}/\\frac{$1}{$2}/gs;