version 1.19, 2003/09/22 13:01:57
|
version 1.20, 2003/11/09 01:14:30
|
Line 49 sub styleparser {
|
Line 49 sub styleparser {
|
my ($target,$content_style_string)=@_; |
my ($target,$content_style_string)=@_; |
my @keys = (); |
my @keys = (); |
my @values = (); |
my @values = (); |
my @style_array = (); |
|
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); |
Line 113 sub styleparser {
|
Line 112 sub styleparser {
|
} |
} |
} |
} |
} |
} |
|
my %style_for_target; |
for (my $i=0; $i<=$#keys; $i++) { |
for (my $i=0; $i<=$#keys; $i++) { |
push @style_array,$keys[$i],$values[$i]; |
if ($values[$i] !~ /^\s*$/) { |
|
$style_for_target{$keys[$i]}=$values[$i]; |
|
} |
} |
} |
my %style_for_target = @style_array; |
|
return %style_for_target; |
return %style_for_target; |
} |
} |
|
|