loncom/build/xfml_parse.pl - diff

Return to xfml_parse.pl CVS log

Up to [LON-CAPA] / loncom / build

version 1.6, 2002/05/21 19:13:53	version 1.7, 2002/05/22 17:07:50
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.='<!-- FILTERED OUT -->';	$output.=$outcache;
}	}
else {	else {
$output.=$outcache;	$output.='<!-- FILTERED OUT -->';
}	}
$outcache='';	$outcache='';
}	}
Line 175 sub evalconditions {	Line 176 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 1;	return 0;
}	}
my $nameflag=0;	my $nameflag=0;
my $cdataflag=0;	my $cdataflag=0;