Diff for /loncom/build/xfml_parse.pl between versions 1.4 and 1.6

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
   

Removed from v.1.4  
changed lines
  Added in v.1.6


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>