|
version 1.18, 2003/09/19 17:46:59
|
version 1.19, 2003/09/22 13:01:57
|
|
Line 78 sub styleparser {
|
Line 78 sub styleparser {
|
| $allow=0; |
$allow=0; |
| } elsif (($target ne 'meta') && ($target ne 'tex') && ($stoken->[0] eq 'E') && ($stoken->[1] eq 'tex')) { |
} elsif (($target ne 'meta') && ($target ne 'tex') && ($stoken->[0] eq 'E') && ($stoken->[1] eq 'tex')) { |
| $allow=1; |
$allow=1; |
| } elsif (($stoken->[0] eq 'S') && ($stoken->[1] eq 'target') && ($stoken->[2]->{'name'} ne $target)) { |
} elsif (($stoken->[0] eq 'S') && ($stoken->[1] eq 'target') && (not $stoken->[2]->{'name'}=~/(^\s*$target\s*,|,\s*$target\s*,|,\s*$target\s*$|^\s*$target\s*$)/)) { |
| $allow=0; |
$allow=0; |
| } elsif (($stoken->[0] eq 'E') && ($stoken->[1] eq 'target')) { |
} elsif (($stoken->[0] eq 'E') && ($stoken->[1] eq 'target')) { |
| $allow=1; |
$allow=1; |
| } elsif (($target ne 'meta') && ($stoken->[0] eq 'S') && ($stoken->[1] eq $target)) { |
} elsif (($target ne 'meta') && ($stoken->[0] eq 'S') && ($stoken->[1] eq $target)) { |
| $allow=1; |
$allow=1; |
| } elsif (($target ne 'meta') && ($stoken->[0] eq 'E') && ($stoken->[1] eq $target)) { |
} elsif (($target ne 'meta') && ($stoken->[0] eq 'E') && ($stoken->[1] eq $target)) { |
| } elsif (($stoken->[0] eq 'S') && ($stoken->[1] eq 'target') && ($stoken->[2]->{'name'} eq $target)) { |
} elsif (($stoken->[0] eq 'S') && ($stoken->[1] eq 'target') && ($stoken->[2]->{'name'}=~/(^\s*$target\s*,|,\s*$target\s*,|,\s*$target\s*$|^\s*$target\s*$)/)) { |
| $allow=1; |
$allow=1; |
| } elsif ($allow) { |
} elsif ($allow) { |
| if ($stoken->[0] eq 'T') { |
if ($stoken->[0] eq 'T') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to style.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml