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

Diff for /loncom/xml/londefdef.pm between versions 1.20 and 1.24

version 1.20, 2001/02/01 19:10:11 version 1.24, 2001/03/27 17:40:48
Line 17  sub BEGIN { Line 17  sub BEGIN {
   
 #===================================================================== TAG SUBROUTINES  #===================================================================== TAG SUBROUTINES
 #-- <output>  #-- <output>
         sub start_output {  sub start_output {
      my ($target,$token) = @_;    my ($target) = @_;
             $Apache::lonxml::textredirection = 1;     if ($target eq 'meta') { $Apache::lonxml::metamode--; }
             my $result = '';    return '';
             return $result;  }
  }  sub end_output {
         sub end_output {    my ($target) = @_;
      my ($target,$token) = @_;    if ($target eq 'meta') { $Apache::lonxml::metamode++; }
             $Apache::lonxml::textredirection = 0;                 return '';
             my $result = '';  }
             return $result;  
  }  
 #-- <m> tag  #-- <m> tag
         sub start_m {          sub start_m {
     my ($target,$token,$parstack,$parser) = @_;      my ($target,$token,$parstack,$parser) = @_;
Line 219  sub BEGIN { Line 217  sub BEGIN {
  }   }
 #-------------------------------------------------------------------------- <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 242  sub BEGIN { Line 241  sub BEGIN {
     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 251  sub BEGIN { Line 250  sub BEGIN {
     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.20  
changed lines
  Added in v.1.24

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