[BACK]Return to lontexconvert.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/lontexconvert.pm between versions 1.18 and 1.19

version 1.18, 2003/02/26 20:22:11 version 1.19, 2003/02/27 21:01:39
Line 44  package Apache::lontexconvert; Line 44  package Apache::lontexconvert;
 use strict;  use strict;
 use tth;  use tth;
 use vars qw($errorstring);  use vars qw($errorstring);
   use Apache();
 use Apache::lonmsg;  use Apache::lonmsg;
 use Apache::lonxml;  use Apache::lonxml;
 use Apache::lonmenu;  use Apache::lonmenu;
Line 77  sub header { Line 78  sub header {
   
 # ================================================================== Conversion  # ================================================================== Conversion
   
   $Apache::lontexconvert::messedup=0;
 sub converted {  sub converted {
   my $texstring=shift;    my $texstring=shift;
   my $xmlstring='[UNDISPLAYABLE]';    my $xmlstring='[UNDISPLAYABLE]';
     if ($Apache::lontexconvert::messedup) {
         return '[Uncoverted Due To Previous Errors]';
     }
   eval(<<'ENDCONV');    eval(<<'ENDCONV');
   {     {
     local $SIG{SEGV}=sub { die; };      local $SIG{SEGV}=sub { $Apache::lontexconvert::messedup=1; die; };
     if ($ENV{'browser.mathml'}) {      if ($ENV{'browser.mathml'}) {
       $xmlstring=&tth::ttm($$texstring);        $xmlstring=&tth::ttm($$texstring);
       $xmlstring=~s/\<math\>/\<math xmlns=\"\&mathns\;\"\>/g;        $xmlstring=~s/\<math\>/\<math xmlns=\"\&mathns\;\"\>/g;
Line 95  sub converted { Line 100  sub converted {
     }      }
   }    }
 ENDCONV  ENDCONV
     if ($Apache::lontexconvert::messedup || &tth::tthmessedup()) {
         &Apache::lonnet::logthis("Trying to kill myself");
         $Apache::lontexconvert::messedup=1;
         my $request=Apache->request();
         $request->child_terminate();
     }
   return $xmlstring;    return $xmlstring;
 }  }
   
Removed from v.1.18  
changed lines
  Added in v.1.19

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>