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

Diff for /loncom/xml/londefdef.pm between versions 1.26 and 1.30

version 1.26, 2001/03/27 17:50:38 version 1.30, 2001/06/02 03:59:59
Line 2 Line 2
 # Tags Default Definition Module   # Tags Default Definition Module 
 #  #
 # last modified 06/26/00 by Alexander Sakharuk  # last modified 06/26/00 by Alexander Sakharuk
 # 11/6,11/30,02/01/01 Gerd Kortemeyer  # 11/6,11/30,02/01/01,5/4 Gerd Kortemeyer
   
 package Apache::londefdef;   package Apache::londefdef; 
   
Line 29  sub end_output { Line 29  sub end_output {
 }  }
 #-- <m> tag  #-- <m> tag
         sub start_m {          sub start_m {
     my ($target,$token,$parstack,$parser) = @_;      my ($target,$token,$tagstack,$parstack,$parser) = @_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
  my $inside = &Apache::lonxml::get_all_text("/m",$$parser[$#$parser]);    my $inside = &Apache::lonxml::get_all_text("/m",$$parser[$#$parser]); 
Line 58  sub end_output { Line 58  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 = &Apache::lonxml::xmlbegin().
                                  &Apache::lonxml::fontsettings();     
     }       } 
    return $currentstring;     return $currentstring;
  }   }
Line 66  sub end_output { Line 67  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 = &Apache::lonxml::xmlend();
             }               } 
    return $currentstring;     return $currentstring;
  }   }
Line 83  sub end_output { Line 84  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 = &Apache::lonxml::registerurl().
                                  $token->[2];    
             }               } 
    return $currentstring;     return $currentstring;
  }   }
Line 217  sub end_output { Line 219  sub end_output {
  }   }
 #-------------------------------------------------------------------------- <meta> tag  #-------------------------------------------------------------------------- <meta> tag
       sub start_meta {        sub start_meta {
     my ($target,$token,$parstack,$parser) = @_;      my ($target,$token,$tagstack,$parstack,$parser) = @_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
       my $args='';        my $args='';
Line 243  sub end_output { Line 245  sub end_output {
    return $currentstring;     return $currentstring;
  }   }
       sub end_meta {        sub end_meta {
  my ($target,$token) = @_;   my ($target,$token,$tagstack,$parstack,$parser) = @_;
  my $currentstring = '';   my $currentstring = '';
  if ($target eq 'web') {   if ($target eq 'web') {
   my $args='';    my $args='';
Line 259  sub end_output { Line 261  sub end_output {
     my ($target,$token) = @_;      my ($target,$token) = @_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
       $currentstring = $token->[4];        $token->[2]->{'onLoad'}.=&Apache::lonxml::loadevents();
     } elsif ($target eq 'tex') {   $token->[2]->{'onUnload'}.=&Apache::lonxml::unloadevents();
                
    $currentstring = '<'.$token->[1];
                   map {
       $currentstring.=' '.$_.'="'.$token->[2]->{$_}.'"';
                   } keys %{$token->[2]};
                   $currentstring.='>';
              } elsif ($target eq 'tex') {
               $currentstring = " \\begin{document} ";                  $currentstring = " \\begin{document} ";  
     }       } 
    return $currentstring;     return $currentstring;
Line 949  sub end_output { Line 958  sub end_output {
            return $currentstring;             return $currentstring;
  }   }
         sub end_a {          sub end_a {
     my ($target,$token,$stackref) = @_;      my ($target,$token,$tagstack,$stackref) = @_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
        $currentstring .= $token->[2];         $currentstring .= $token->[2];
Line 967  sub end_output { Line 976  sub end_output {
  }   }
 #---------------------------------------------------------------------------- <li> tag  #---------------------------------------------------------------------------- <li> tag
         sub start_li {          sub start_li {
     my ($target,$token,$stackref) = @_;      my ($target,$token,$tagstack,$stackref) = @_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
               $currentstring = $token->[4];                     $currentstring = $token->[4];     
Removed from v.1.26  
changed lines
  Added in v.1.30

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