version 1.20, 2003/11/09 01:14:30
|
version 1.21, 2004/01/21 13:03:29
|
Line 52 sub styleparser {
|
Line 52 sub styleparser {
|
my $current_value; |
my $current_value; |
my $allow=0; |
my $allow=0; |
my $pstyle = HTML::TokeParser->new(\$content_style_string); |
my $pstyle = HTML::TokeParser->new(\$content_style_string); |
|
$pstyle->xml_mode('1'); |
while (my $stoken = $pstyle->get_token) { |
while (my $stoken = $pstyle->get_token) { |
if (($stoken->[0] eq 'S') && ($stoken->[1] eq 'definetag')) { |
if (($stoken->[0] eq 'S') && ($stoken->[1] eq 'definetag')) { |
push @keys,$stoken->[2]->{'name'}; |
push @keys,$stoken->[2]->{'name'}; |