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

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

version 1.29, 2001/05/04 17:38:22 version 1.30, 2001/06/02 03:59:59
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 219  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 245  sub end_output { Line 245  sub end_output {
    return $currentstring;     return $currentstring;
  }   }
       sub end_meta {        sub end_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 958  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 976  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.29  
changed lines
  Added in v.1.30

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