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

Diff for /loncom/xml/lontex.pm between versions 1.6 and 1.14

version 1.6, 2005/02/17 09:01:04 version 1.14, 2023/12/22 13:38:01
Line 45  use strict; Line 45  use strict;
 use Apache::File;  use Apache::File;
 use Apache::lontexconvert;  use Apache::lontexconvert;
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
   use Apache::lonnet;
 use tth;  use tth;
   
 # ================================================================ Main Handler  # ================================================================ Main Handler
   
   sub footer {
       my ($errorstring) = @_;
       my $xmlstring='';
       if ($env{'request.state'} eq 'construct') {
    $xmlstring.='<address>'.
       $Apache::lontexconvert::errorstring.'</address>';
       } else {
    &Apache::lonmsg::author_res_msg($env{'request.filename'},
    $Apache::lonxml::errorstring);
       }
   # -------------------------------------------------------------------- End Body
       $xmlstring.=&Apache::loncommon::end_page({'discussion' => 1});
       return $xmlstring;
   }
   
 sub handler {  sub handler {
   my $r=shift;    my ($r)= @_;
   my @texcontents;    my @texcontents;
   my $texstring;    my $texstring;
   
 # ----------------------------------------------------------- Set document type  # ----------------------------------------------------------- Set document type
   
   if ($ENV{'browser.mathml'}) {    if ($env{'browser.mathml'}) {
       &Apache::loncommon::content_type($r,'text/xml');        &Apache::loncommon::content_type($r,'text/xml');
   } else {    } else {
       &Apache::loncommon::content_type($r,'text/html');        &Apache::loncommon::content_type($r,'text/html');
Line 76  sub handler { Line 92  sub handler {
   
 # --------------------------------------------------------------- Render Output  # --------------------------------------------------------------- Render Output
       
   $r->print(&Apache::lontexconvert::header());    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
   $r->print(    ['texengine','inhibitmenu']);
     '<body bgcolor="#FFFFFF" onLoad="'.  
       &Apache::lonmenu::loadevents().  
     '" onUnload="'.    $r->print(&Apache::loncommon::start_page(undef,undef,
       &Apache::lonmenu::unloadevents().     {'bgcolor'        => '#FFFFFF',
     '">'.      'force_register' => 1,
       &Apache::lonmenu::menubuttons(undef,'web',1)      'only_body'      =>
   );   ($env{'form.inhibitmenu'} 
   $r->print(&Apache::lontexconvert::converted(\$texstring));   eq 'yes'), }));
   $r->print('</body>');  
   $r->print(&Apache::lontexconvert::footer());    my $displaymode;
     if (&Apache::lonnet::EXT('resource.0.texdisplay') =~ /^(tth|mathjax)$/i) {
         $displaymode = $1;
     }
     if ($env{'form.texengine'} =~ /^(tth|mathjax)$/i) {
         $displaymode = $1;
     }
     $r->print(&Apache::lontexconvert::converted(\$texstring,
         $displaymode));
     $r->print(&footer());
   
   return OK;    return OK;
 }  }
Line 95  sub handler { Line 120  sub handler {
 1;  1;
 __END__  __END__
   
   =pod
   
   =head1 NAME
   
   Apache::lontex.pm
   
   =head1 SYNOPSIS
   
   Handler for tex files (somewhere in modules)
   
   This is part of the LearningOnline Network with CAPA project
   described at http://www.lon-capa.org.
   
   
   =head1 SUBROUTINES
   
   =over
   
   =item footer()
   
   Main Handler
   
   =back
   
   =cut
   
   
   
   
Removed from v.1.6  
changed lines
  Added in v.1.14

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