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

Diff for /loncom/xml/lontex.pm between versions 1.2 and 1.16

version 1.2, 2001/05/28 20:16:50 version 1.16, 2025/02/20 03:46:11
Line 1 Line 1
 # The LearningOnline Network with CAPA  # The LearningOnline Network with CAPA
 # TeX Content Handler  # TeX Content Handler
 #  #
   # $Id$
   #
   # Copyright Michigan State University Board of Trustees
   #
   # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
   #
   # LON-CAPA is free software; you can redistribute it and/or modify
   # it under the terms of the GNU General Public License as published by
   # the Free Software Foundation; either version 2 of the License, or
   # (at your option) any later version.
   #
   # LON-CAPA is distributed in the hope that it will be useful,
   # but WITHOUT ANY WARRANTY; without even the implied warranty of
   # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   # GNU General Public License for more details.
   #
   # You should have received a copy of the GNU General Public License
   # along with LON-CAPA; if not, write to the Free Software
   # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   #
   # /home/httpd/html/adm/gpl.txt
   #
   # http://www.lon-capa.org/
   #
   #
   # Copyright for TtHfunc and TtMfunc by Ian Hutchinson. 
   # TtHfunc and TtMfunc (the "Code") may be compiled and linked into 
   # binary executable programs or libraries distributed by the 
   # Michigan State University (the "Licensee"), but any binaries so 
   # distributed are hereby licensed only for use in the context
   # of a program or computational system for which the Licensee is the 
   # primary author or distributor, and which performs substantial 
   # additional tasks beyond the translation of (La)TeX into HTML.
   # The C source of the Code may not be distributed by the Licensee
   # to any other parties under any circumstances.
   #
 # 05/29/00,05/30,10/11 Gerd Kortemeyer  # 05/29/00,05/30,10/11 Gerd Kortemeyer
   
 package Apache::lontex;  package Apache::lontex;
Line 9  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 Apache::loncommon;
   use Apache::lonmsg;
   use Apache::lonlocal;
 use tth;  use tth;
   
 # ================================================================ Main Handler  # ================================================================ Main Handler
   
   sub footer {
       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'}) {
     $r->content_type('text/xml');        &Apache::loncommon::content_type($r,'text/xml');
   } else {    } else {
     $r->content_type('text/html');        &Apache::loncommon::content_type($r,'text/html');
   }    }
   $r->send_http_header;    $r->send_http_header;
   
Line 32  sub handler { Line 86  sub handler {
 # ------------------------------------------------------------------- Read file  # ------------------------------------------------------------------- Read file
   
   {    {
     my $fh=Apache::File->new($r->filename);        if (-e $r->filename) {
     @texcontents=<$fh>;            my $fh=Apache::File->new($r->filename);
             @texcontents=<$fh>;
             close($fh);
         } else {
               my $filename=(split('/',$r->filename))[-1];
               my $error = &mt('Unable to find [_1]',
                               '<span class="LC_filename">'.$filename.'</span>');
               &Apache::loncommon::simple_error_page($r,'Not available',
                                                     $error,{'no_auto_mt_msg' => 1});
               return OK;
         }
   }    }
   
   $texstring=join("\n",@texcontents);    $texstring=join("\n",@texcontents);
   
 # --------------------------------------------------------------- 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="LONCAPAreg();" onUnload="LONCAPAstale();">');  
   $r->print(&Apache::lontexconvert::converted(\$texstring));  
   $r->print('</body>');    $r->print(&Apache::loncommon::start_page(undef,undef,
   $r->print(&Apache::lontexconvert::footer());     {'bgcolor'        => '#FFFFFF',
       'force_register' => 1,
       'only_body'      =>
    ($env{'form.inhibitmenu'} 
    eq 'yes'), }));
   
     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 53  sub handler { Line 132  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.2  
changed lines
  Added in v.1.16

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