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

Diff for /loncom/xml/londefdef.pm between versions 1.99 and 1.100

version 1.99, 2002/11/07 19:33:52 version 1.100, 2002/11/09 22:05:33
Line 109  sub end_m { Line 109  sub end_m {
   return $currentstring;    return $currentstring;
 }  }
 #-- <html> tag      #-- <html> tag    
       sub start_html {  sub start_html {
     my ($target,$token) = @_;      my ($target,$token) = @_;
             my $currentstring = '';      my $currentstring = '';
     if ($ENV{'browser.mathml'}) {      if ($ENV{'browser.mathml'}) {
       &tth::ttminit();   &tth::ttminit();
     } else {   if ($ENV{'browser.unicode'}) {
       &tth::tthinit();      &tth::ttmoptions('-L -u1');
     }   } else {
             if ($target eq 'web') {      &tth::ttmoptions('-L -u0');
               $currentstring = &Apache::lonxml::xmlbegin().   }
                                &Apache::lonxml::fontsettings();           } else {
     } elsif ($target eq 'tex') {   &tth::tthinit();
       @Apache::londefdef::table = ();   if ($ENV{'browser.unicode'}) {
       $currentstring .= '\documentclass[letterpaper]{article}      &tth::tthoptions('-L -u1');
    } else {
       &tth::tthoptions('-L -u0');
    }
       }
       if ($target eq 'web') {
    $currentstring = &Apache::lonxml::xmlbegin().
       &Apache::lonxml::fontsettings();     
       } elsif ($target eq 'tex') {
    @Apache::londefdef::table = ();
    $currentstring .= '\documentclass[letterpaper]{article}
                                  \newcommand{\keephidden}[1]{}                                   \newcommand{\keephidden}[1]{}
                                  \renewcommand{\deg}{$^{\circ}$}                                   \renewcommand{\deg}{$^{\circ}$}
                                  \usepackage[dvips]{graphicx}                                   \usepackage[dvips]{graphicx}
                                  \usepackage{epsfig}\usepackage{calc}                                   \usepackage{epsfig}\usepackage{calc}
                                  \newenvironment{choicelist}{\begin{enumerate}}{\end{enumerate}}';                                   \newenvironment{choicelist}{\begin{enumerate}}{\end{enumerate}}';
     }      }
    return $currentstring;      return $currentstring;
  }  }
         sub end_html {          sub end_html {
     my ($target,$token) = @_;      my ($target,$token) = @_;
             my $currentstring = '';              my $currentstring = '';
Removed from v.1.99  
changed lines
  Added in v.1.100

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