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

Diff for /loncom/xml/londefdef.pm between versions 1.111 and 1.114

version 1.111, 2003/02/05 23:17:32 version 1.114, 2003/02/14 20:57:09
Line 49  use strict; Line 49  use strict;
 use Apache::lonxml;  use Apache::lonxml;
 use Apache::File();  use Apache::File();
 use Image::Magick;  use Image::Magick;
   use Apache::lonmenu;
   
 BEGIN {  BEGIN {
   
Line 154  sub start_html { Line 155  sub start_html {
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
  @Apache::londefdef::table = ();   @Apache::londefdef::table = ();
  $currentstring .= '\documentclass[letterpaper]{article}   $currentstring .= '\documentclass[letterpaper]{article}
                                  \newcommand{\keephidden}[1]{}                             \newcommand{\keephidden}[1]{}
                                  \renewcommand{\deg}{$^{\circ}$}                             \renewcommand{\deg}{$^{\circ}$}
                                  \usepackage[dvips]{graphicx}                             \usepackage{textcomp}
                                  \usepackage{epsfig}\usepackage{calc}                             \usepackage[dvips]{graphicx}
                                  \newenvironment{choicelist}{\begin{enumerate}}{\end{enumerate}}';                             \usepackage{epsfig}\usepackage{calc}
   \newenvironment{choicelist}{\begin{list}{}{\setlength{\rightmargin}{0in}\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.05in}\setlength{\itemsep}{0.022in}\setlength{\parsep}{0in}\setlength{\belowdisplayskip}{0.04in}\setlength{\abovedisplayskip}{0.05in}\setlength{\abovedisplayshortskip}{-0.04in}\setlength{\belowdisplayshortskip}{0.04in}}}{\end{list}}';
     }      }
     return $currentstring;      return $currentstring;
 }  }
Line 183  sub start_html { Line 185  sub start_html {
     my ($target,$token) = @_;      my ($target,$token) = @_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
               $currentstring = &Apache::lonxml::registerurl(undef,$target).                $currentstring = &Apache::lonmenu::registerurl(undef,$target).
                                $token->[2];                                     $token->[2];    
             }               } 
    return $currentstring;     return $currentstring;
Line 327  sub start_html { Line 329  sub start_html {
       my $args='';        my $args='';
       if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }        if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
       if ($args eq '') {        if ($args eq '') {
  &Apache::lonxml::get_all_text("/meta",$$parser[$#$parser]);   &Apache::lonxml::get_all_text("/meta",$parser);
       } else {        } else {
  $currentstring = $token->[4];   $currentstring = $token->[4];
       }        }
Line 365  sub start_html { Line 367  sub start_html {
             if ($target eq 'web') {              if ($target eq 'web') {
       if (!$Apache::lonxml::registered) {        if (!$Apache::lonxml::registered) {
  $currentstring.='<head>'.   $currentstring.='<head>'.
     &Apache::lonxml::registerurl(undef,$target).'</head>';      &Apache::lonmenu::registerurl(undef,$target).'</head>';
       }        }
       my $onLoad='';        my $onLoad='';
       foreach my $key (keys(%{$token->[2]})) {        foreach my $key (keys(%{$token->[2]})) {
Line 374  sub start_html { Line 376  sub start_html {
   delete($token->[2]->{$key});    delete($token->[2]->{$key});
  }   }
       }        }
       $token->[2]->{'onload'}=&Apache::lonxml::loadevents().        $token->[2]->{'onload'}=&Apache::lonmenu::loadevents().
                        ';'.$onLoad;                         ';'.$onLoad;
       my $onUnload='';        my $onUnload='';
       foreach my $key (keys(%{$token->[2]})) {        foreach my $key (keys(%{$token->[2]})) {
Line 383  sub start_html { Line 385  sub start_html {
   delete($token->[2]->{$key});    delete($token->[2]->{$key});
  }   }
       }        }
       $token->[2]->{'onunload'}=&Apache::lonxml::unloadevents().        $token->[2]->{'onunload'}=&Apache::lonmenu::unloadevents().
                          ';'.$onUnload;                           ';'.$onUnload;
   
       $currentstring .= '<'.$token->[1];        $currentstring .= '<'.$token->[1];
Line 397  sub start_html { Line 399  sub start_html {
  <input type="submit" name="editmode" value="Edit" />   <input type="submit" name="editmode" value="Edit" />
  </form>   </form>
 EDITBUTTON  EDITBUTTON
       }                } else {
    $currentstring.=&Apache::lonmenu::menubuttons(undef,$target);
                 }
            } elsif ($target eq 'tex') {             } elsif ($target eq 'tex') {
               $currentstring = '\begin{document}';                  $currentstring = '\begin{document}';  
     }       } 
Line 1789  sub end_allow { Line 1793  sub end_allow {
   if ($target eq 'web') {     if ($target eq 'web') { 
     if (!$Apache::lonxml::registered) {      if (!$Apache::lonxml::registered) {
       $currentstring.='<head>'.        $currentstring.='<head>'.
   &Apache::lonxml::registerurl(undef,$target).'</head>';    &Apache::lonmenu::registerurl(undef,$target).'</head>';
     }      }
     $currentstring .= $token->[4];      $currentstring .= $token->[4];
   }    }
Removed from v.1.111  
changed lines
  Added in v.1.114

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