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

Diff for /loncom/xml/lontex.pm between versions 1.7 and 1.9

version 1.7, 2005/04/07 06:56:27 version 1.9, 2006/03/24 18:09:23
Line 50  use tth; Line 50  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::lonxml::xmlend();
       return $xmlstring;
   }
   
 sub handler {  sub handler {
   my $r=shift;    my ($r)= @_;
   my @texcontents;    my @texcontents;
   my $texstring;    my $texstring;
   
Line 77  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="'.    &Apache::lontexconvert::init_tth();
       &Apache::lonmenu::unloadevents().    my $load_items = 
     '">'.        'onLoad="'  .&Apache::lonmenu::loadevents().  '" '.
       &Apache::lonmenu::menubuttons(undef,'web',1)        'onUnload="'.&Apache::lonmenu::unloadevents().'" ';
   );  
   $r->print(&Apache::lontexconvert::converted(\$texstring));    $r->print(&Apache::loncommon::start_page(undef,undef,
   $r->print('</body>');     {'add_entries'    => $load_items,
   $r->print(&Apache::lontexconvert::footer());      'bgcolor'        => '#FFFFFF',
       'force_register' => 1,
       'only_body'      =>
    ($env{'form.inhibitmenu'} 
    eq 'yes'), }));
   
     $r->print(&Apache::lontexconvert::converted(\$texstring,
         $env{'form.texengine'}));
     $r->print(&footer());
   
   return OK;    return OK;
 }  }
Removed from v.1.7  
changed lines
  Added in v.1.9

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