|
version 1.20, 2003/11/09 01:14:30
|
version 1.22, 2008/11/24 18:55:01
|
|
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'}; |
|
Line 162 sub testvalue {
|
Line 163 sub testvalue {
|
| 1; |
1; |
| |
|
| __END__ |
__END__ |
| |
|
| |
=pod |
| |
|
| |
=head1 NAME |
| |
|
| |
Apache::style.pm |
| |
|
| |
=head1 SYNOPSIS |
| |
|
| |
Style parsing module |
| |
|
| |
This is part of the LearningOnline Network with CAPA project |
| |
described at http://www.lon-capa.org. |
| |
|
| |
|
| |
=head1 SUBROUTINES |
| |
|
| |
=over |
| |
|
| |
=item styleparser() |
| |
|
| |
=item testkey() |
| |
|
| |
=item testvalue() |
| |
|
| |
=back |
| |
|
| |
=cut |
| |
|
![[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