|
version 1.4, 2000/06/29 20:18:44
|
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]; |
| |
} |
| } |
} |
| } |
} |
| } |
} |
|
Line 105 sub styleparser {
|
Line 111 sub styleparser {
|
| } |
} |
| } |
} |
| $current_value =~ s/(\s)+/$1/g; |
$current_value =~ s/(\s)+/$1/g; |
| if ($current_value ne ' ' and $current_value ne '' ) { |
if ($current_value ne '' ) { |
| push (@value_style,lc $current_key,$current_value); |
push (@value_style,lc $current_key,$current_value); |
| } |
} |
| $current_key = ''; |
$current_key = ''; |
|
Line 113 sub styleparser {
|
Line 119 sub styleparser {
|
| } |
} |
| my %style_for_target = @value_style; |
my %style_for_target = @value_style; |
| # check printing |
# check printing |
| while (($current_key,$current_value) = each %style_for_target) { |
# while (($current_key,$current_value) = each %style_for_target) { |
| print "$current_key => $current_value\n"; |
# print "$current_key => $current_value\n"; |
| } |
# } |
| # return result |
# return result |
| return %style_for_target; |
return %style_for_target; |
| } |
} |
![[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