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

Diff for /loncom/xml/londefdef.pm between versions 1.21 and 1.23

version 1.21, 2001/03/23 22:08:05 version 1.23, 2001/03/26 20:36:10
Line 19  sub BEGIN { Line 19  sub BEGIN {
 #-- <output>  #-- <output>
 sub start_output {  sub start_output {
   my ($target) = @_;    my ($target) = @_;
   if ($target eq 'meta') { $Apache::lonxml::metamode = 0; }    if ($target eq 'meta') { $Apache::lonxml::metamode--; }
   return '';    return '';
 }  }
 sub end_output {  sub end_output {
   my ($target) = @_;    my ($target) = @_;
   if ($target eq 'meta') { $Apache::lonxml::metamode = 1; }    if ($target eq 'meta') { $Apache::lonxml::metamode++; }
   return '';    return '';
 }  }
 #-- <m> tag  #-- <m> tag
Line 217  sub end_output { Line 217  sub end_output {
  }   }
 #-------------------------------------------------------------------------- <meta> tag  #-------------------------------------------------------------------------- <meta> tag
       sub start_meta {        sub start_meta {
     my ($target,$token) = @_;      my ($target,$token,$parstack,$parser) = @_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
               $currentstring = $token->[4];                     $currentstring = &Apache::lonxml::get_all_text("/meta",$$parser[$#$parser]);     
                 $currentstring = '';
     }      }
             if ($target eq 'meta') {              if ($target eq 'meta') {
  unless ($token->[2]->{'http-equiv'}) {   unless ($token->[2]->{'http-equiv'}) {
Line 240  sub end_output { Line 241  sub end_output {
     my ($target,$token) = @_;      my ($target,$token) = @_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
               $currentstring = $token->[2];      #              $currentstring = $token->[2];    
             }               } 
    return $currentstring;     return $currentstring;
  }   }
Line 249  sub end_output { Line 250  sub end_output {
     my ($target,$token) = @_;      my ($target,$token) = @_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
               $currentstring = $token->[4];       #              $currentstring = $token->[4];     
     } elsif ($target eq 'tex') {      } elsif ($target eq 'tex') {
               $currentstring = " \\begin{document} ";                  $currentstring = " \\begin{document} ";  
     }       } 
Removed from v.1.21  
changed lines
  Added in v.1.23

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