|
version 1.4, 2002/04/08 10:52:24
|
version 1.6, 2002/05/21 19:13:53
|
|
Line 147 while (my $token = $parser->get_tag('cla
|
Line 147 while (my $token = $parser->get_tag('cla
|
| $ttype='E'; |
$ttype='E'; |
| $excludeflag=0; |
$excludeflag=0; |
| $outcache.=$token->[2]; |
$outcache.=$token->[2]; |
| my $retval=&evalconditions($outcache); |
|
| if (&evalconditions($outcache)) { |
if (&evalconditions($outcache)) { |
| $output.=$outcache; |
$output.='<!-- FILTERED OUT -->'; |
| } |
} |
| else { |
else { |
| $output.='<!-- FILTERED OUT -->'; |
$output.=$outcache; |
| } |
} |
| $outcache=''; |
$outcache=''; |
| } |
} |
|
Line 176 sub evalconditions {
|
Line 175 sub evalconditions {
|
| my $eparser = HTML::TokeParser->new(\$parsetext); |
my $eparser = HTML::TokeParser->new(\$parsetext); |
| unless (@{$conditions{'name'}} or |
unless (@{$conditions{'name'}} or |
| @{$conditions{'attribute'}}) { |
@{$conditions{'attribute'}}) { |
| return 0; |
return 1; |
| } |
} |
| my $nameflag=0; |
my $nameflag=0; |
| my $cdataflag=0; |
my $cdataflag=0; |
|
Line 327 sub format_choice_exclude {
|
Line 326 sub format_choice_exclude {
|
| |
|
| =head1 NAME |
=head1 NAME |
| |
|
| xfml_parse.pl - This is meant to parse files meeting the xfml document type. |
xfml_parse.pl - This is meant to parse XFML files (XML Filtering Markup Language.) |
| See xfml.dtd. XFML=XML Filtering Markup Language. |
|
| |
|
| =head1 SYNOPSIS |
=head1 SYNOPSIS |
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to xfml_parse.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / build