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

Diff for /loncom/xml/londefdef.pm between versions 1.10 and 1.12

version 1.10, 2000/11/06 16:22:59 version 1.12, 2000/11/30 10:41:27
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 Gerd Kortemeyer  # 11/6,11/30 Gerd Kortemeyer
   
 package Apache::londefdef;   package Apache::londefdef; 
   
Line 230  sub BEGIN { Line 230  sub BEGIN {
             if ($target eq 'web') {              if ($target eq 'web') {
               $currentstring = $token->[4];                     $currentstring = $token->[4];     
     }      }
               if ($target eq 'meta') {
    unless ($token->[2]->{'http-equiv'}) {
       my $name=$token->[2]->{'name'};
                       $name=~tr/A-Z/a-z/;
                       $name=~s/\s/\_/g;
                       if ($name) {
                          $currentstring='<'.$name.'>'.
                                            $token->[2]->{'content'}.
                 '</'.$name.'>';
       }
                   }
       }
    return $currentstring;     return $currentstring;
  }   }
         sub end_meta {          sub end_meta {
Line 1169  sub BEGIN { Line 1181  sub BEGIN {
   
 # ------------------------------------------------------------------------ <param> tag  # ------------------------------------------------------------------------ <param> tag
   
         sub start_img {          sub start_param {
     my ($target,$token) = @_;      my ($target,$token) = @_;
     if ($token->[2]->{'name'} eq 'cabbase') {      if ($token->[2]->{'name'} eq 'cabbase') {
                       $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=                        $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
Line 1185  sub BEGIN { Line 1197  sub BEGIN {
     }       } 
    return $currentstring;     return $currentstring;
  }   }
         sub end_img {          sub end_param {
     my ($target,$token) = @_;      my ($target,$token) = @_;
             my $currentstring = '';              my $currentstring = '';
             if ($target eq 'web') {              if ($target eq 'web') {
Removed from v.1.10  
changed lines
  Added in v.1.12

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