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

Diff for /loncom/xml/style.pl between versions 1.1 and 1.2

version 1.1, 2000/06/29 14:47:59 version 1.2, 2000/06/29 19:31:09
Line 112  sub styleparser { Line 112  sub styleparser {
 # target found  # target found
   if ($stoken->[0] eq 'S' and $stoken->[1] eq 'target') {    if ($stoken->[0] eq 'S' and $stoken->[1] eq 'target') {
 # target defined via <target> tag  # target defined via <target> tag
       if (index $stoken->[2]{dest},$target =! -1) {      if (defined $stoken->[2]{dest}) {
         if (index($stoken->[2]{dest},$target) == -1) {
   while ($stoken = $pstyle->get_token and $stoken->[1] ne 'target') {    while ($stoken = $pstyle->get_token and $stoken->[1] ne 'target') {
   }    }
       } else {        } elsif (index($stoken->[2]{dest},$target) != -1) {
   while ($stoken = $pstyle->get_token and $stoken->[1] ne 'target') {    while ($stoken = $pstyle->get_token and $stoken->[1] ne 'target') {
       if ($stoken->[0] eq 'T') {        if ($stoken->[0] eq 'T') {
   $current_value .= $stoken->[1];    $current_value .= $stoken->[1];
Line 149  sub styleparser { Line 150  sub styleparser {
   }            }        
       }        }
   }    }
       }                      }
       } else {
         if (index($stoken->[2]{excl},$target) != -1) {
     while ($stoken = $pstyle->get_token and $stoken->[1] ne 'target') {
     }
         } elsif (index($stoken->[2]{excl},$target) == -1) {
     while ($stoken = $pstyle->get_token and $stoken->[1] ne 'target') {
         if ($stoken->[0] eq 'T') {
     $current_value .= $stoken->[1];
         } elsif ($stoken->[0] eq 'S') {
     my $flagelem = 0;    
     for (my $i=$#value_style-1;$i>=0;$i=$i-2) {
         if ($stoken->[1] eq $value_style[$i]) {
     $flagelem = 1;
     $iele = $i + 1;
     last;
         }
     }
     if ($flagelem == 0) {
         $current_value .= $stoken->[4];
     } else {
         $current_value .= $value_style[$iele];
     }
         } elsif ($stoken->[0] eq 'E') {
     my $flagelem = 0;    
     for (my $i=$#value_style-1;$i>=0;$i=$i-2) {
         if ($stoken->[1] eq $value_style[$i]) {
     $flagelem = 1;
     $iele = $i + 1;
     last;
         }
     }
     if ($flagelem == 0) {
         $current_value .= $stoken->[2];
     } else {
         $current_value .= $value_style[$iele];
     }        
         }
     }
         }
   
   
       }
   } elsif ($stoken->[1] ne $target) {    } elsif ($stoken->[1] ne $target) {
 #target defined via short-form tag  #target defined via short-form tag
       my $tempo_token = $stoken->[1];        my $tempo_token = $stoken->[1];
Removed from v.1.1  
changed lines
  Added in v.1.2

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