version 1.5, 2000/07/20 15:37:54
|
version 1.6, 2000/10/26 14:01:40
|
Line 33 sub styleparser {
|
Line 33 sub styleparser {
|
while ($stoken = $pstyle->get_token and $stoken->[1] ne 'definetag') { |
while ($stoken = $pstyle->get_token and $stoken->[1] ne 'definetag') { |
if ($stoken->[0] eq 'S' and $stoken->[1] eq 'meta') { |
if ($stoken->[0] eq 'S' and $stoken->[1] eq 'meta') { |
while ($stoken = $pstyle->get_token and $stoken->[1] ne 'meta') { |
while ($stoken = $pstyle->get_token and $stoken->[1] ne 'meta') { |
$current_value .= $stoken->[1]; |
if ($stoken->[0] eq 'T') { |
|
$current_value .= $stoken->[1]; |
|
} elsif ($stoken->[0] eq 'S') { |
|
$current_value .= $stoken->[4]; |
|
} else { |
|
$current_value .= $stoken->[2]; |
|
} |
} |
} |
} |
} |
} |
} |