[BACK]Return to lontexconvert.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / xml
File:  [LON-CAPA] / loncom / xml / lontexconvert.pm
Revision 1.3: download - view: text, annotated - select for diffs
Fri May 4 17:38:22 2001 UTC (23 years ago) by www
Branches: MAIN
CVS tags: stable_2001_fall, HEAD
Mac font settings

    1: # The LearningOnline Network with CAPA
    2: # TeX Conversion Module
    3: #
    4: # 05/29/00,05/30,10/11,10/20 Gerd Kortemeyer
    5: # 05/03/2001 Scott Harrison
    6: # 5/4 Gerd Kortemeyer
    7: 
    8: package Apache::lontexconvert;
    9: 
   10: use strict;
   11: use tth;
   12: use vars qw($errorstring);
   13: use Apache::lonmsg;
   14: use Apache::lonxml;
   15: 
   16: # ====================================================================== Header
   17: 
   18: sub header {
   19:   $errorstring='';
   20:   my $time=time;
   21:   if ($ENV{'browser.mathml'}) {
   22:       &tth::ttminit();
   23:   } else {
   24:       &tth::tthinit();
   25:   }
   26:   return &Apache::lonxml::xmlbegin().
   27:          &Apache::lonxml::fontsettings().
   28:          "\n<head>\n".
   29:          &Apache::lonxml::registerurl().
   30: 	 "\n</head>\n";
   31: }
   32: 
   33: # ================================================================== Conversion
   34: 
   35: sub converted {
   36:     my $texstring=shift;
   37:     my $xmlstring;
   38:     if ($ENV{'browser.mathml'}) {
   39:       $xmlstring=&tth::ttm($$texstring);
   40:       $xmlstring=~s/\<math\>/\<math xmlns=\"\&mathns\;\"\>/g;
   41:       $xmlstring=~s/\<br\>/\<br\/\>/g;
   42:       $xmlstring=~s/\<p\>/\<p\>\<\/p\>/g;
   43:       $errorstring.=&tth::ttmerror();
   44:   } else {
   45:       $xmlstring=&tth::tth($$texstring);
   46:       $errorstring.=&tth::ttherror();
   47:   }
   48:   return $xmlstring;
   49: }
   50: 
   51: # ====================================================================== Footer
   52: 
   53: sub footer {
   54:   my $xmlstring='';
   55:   if ($ENV{'request.state'} eq 'construct') {
   56:       $xmlstring.='<address>'.$errorstring.'</address>';
   57:   } else {
   58:       &Apache::lonmsg::author_res_msg($ENV{'request.filename'},$errorstring);
   59:   }
   60: # -------------------------------------------------------------------- End Body
   61:   $xmlstring.=&Apache::lonxml::xmlend();
   62:   return $xmlstring;
   63: }
   64: 
   65: 1;
   66: __END__
   67: 
   68: 
   69: 
   70: 
   71: 
   72: 
   73:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>