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

Diff for /loncom/xml/lontexconvert.pm between versions 1.28 and 1.29

version 1.28, 2003/11/06 15:27:07 version 1.29, 2004/01/28 17:16:27
Line 51  use Apache::lonmenu; Line 51  use Apache::lonmenu;
   
 # ====================================================================== Header  # ====================================================================== Header
   
   sub init_tth {
       my $options=$ENV{'course.'.$ENV{'request.course.id'}.'.tthoptions'};
       if ($ENV{'browser.mathml'}) {
    &tth::ttminit();
    if ($ENV{'browser.unicode'}) {
       &tth::ttmoptions('-L -u1 '.$options);
    } else {
       &tth::ttmoptions('-L -u0 '.$options);
    }
       } else {
    &tth::tthinit();
    if ($ENV{'browser.unicode'}) {
       &tth::tthoptions('-L -u1 '.$options);
    } else {
       &tth::tthoptions('-L -u0 '.$options);
    }
       }
       &Apache::lonnet::logthis("caled and use $options");
       &Apache::lonnet::logthis("caller ".join(':',caller(0)));
   
   }
   
 sub header {  sub header {
   $errorstring='';    $errorstring='';
   my $time=time;    my $time=time;
   if ($ENV{'browser.mathml'}) {    &init_tth();
       &tth::ttminit();  
       if ($ENV{'browser.unicode'}) {  
   &tth::ttmoptions('-L -u1');  
       } else {  
   &tth::ttmoptions('-L -u0');  
       }  
   } else {  
       &tth::tthinit();  
       if ($ENV{'browser.unicode'}) {  
   &tth::tthoptions('-L -u1');  
       } else {  
   &tth::tthoptions('-L -u0');  
       }  
   }  
   return &Apache::lonxml::xmlbegin().    return &Apache::lonxml::xmlbegin().
          &Apache::lonxml::fontsettings().           &Apache::lonxml::fontsettings().
          "\n<head>\n".           "\n<head>\n".
Line 164  sub msgtexconverted { Line 172  sub msgtexconverted {
     my $message=shift;      my $message=shift;
   
     $errorstring='';      $errorstring='';
     if ($ENV{'browser.mathml'}) {      &init_tth();
  &tth::ttminit();  
  if ($ENV{'browser.unicode'}) {  
     &tth::ttmoptions('-L -u1');  
  } else {  
     &tth::ttmoptions('-L -u0');  
  }  
     } else {  
  &tth::tthinit();  
  if ($ENV{'browser.unicode'}) {  
     &tth::tthoptions('-L -u1');  
  } else {  
     &tth::tthoptions('-L -u0');  
  }  
     }  
     my $outmessage='';      my $outmessage='';
     my $tex=0;      my $tex=0;
     foreach (split(/(?:\&lt\;|\<)\/*m\s*(?:\&gt\;|\>)/i,$message)) {      foreach (split(/(?:\&lt\;|\<)\/*m\s*(?:\&gt\;|\>)/i,$message)) {
Removed from v.1.28  
changed lines
  Added in v.1.29

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