[LON-CAPA-cvs] cvs: loncom /build xfml_parse.pl

[matthew]

matthew		Tue May 21 15:13:53 2002 EDT

  Modified files:              
    /loncom/build	xfml_parse.pl 
  Log:
  Changes by Guy to fix logic that was backward in two places.
  
  
Index: loncom/build/xfml_parse.pl
diff -u loncom/build/xfml_parse.pl:1.5 loncom/build/xfml_parse.pl:1.6
--- loncom/build/xfml_parse.pl:1.5	Mon Apr  8 08:51:03 2002
+++ loncom/build/xfml_parse.pl	Tue May 21 15:13:53 2002
@@ -8,7 +8,7 @@
 # The LearningOnline Network with CAPA
 # piml_parse.pl - Linux Packaging Markup Language parser
 #
-# $Id: xfml_parse.pl,v 1.5 2002/04/08 12:51:03 harris41 Exp $
+# $Id: xfml_parse.pl,v 1.6 2002/05/21 19:13:53 matthew Exp $
 #
 # Written by Scott Harrison, codeharrison@yahoo.com
 #
@@ -147,12 +147,11 @@
 		$ttype='E';
 		$excludeflag=0;
 		$outcache.=$token->[2];
-		my $retval=&evalconditions($outcache);
 		if (&evalconditions($outcache)) {
-		    $output.=$outcache;
+		    $output.='<!-- FILTERED OUT -->';
 		}
 		else {
-		    $output.='<!-- FILTERED OUT -->';
+		    $output.=$outcache;
 		}
 		$outcache='';
 	    }
@@ -176,7 +175,7 @@
     my $eparser = HTML::TokeParser->new(\$parsetext);
     unless (@{$conditions{'name'}} or
 	    @{$conditions{'attribute'}}) {
-	return 0;
+	return 1;
     }
     my $nameflag=0;
     my $cdataflag=0;