--- loncom/build/xfml_parse.pl	2002/04/08 12:51:03	1.5
+++ loncom/build/xfml_parse.pl	2002/05/21 19:13:53	1.6
@@ -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 @@ while (my $token = $parser->get_tag('cla
 		$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 @@ sub evalconditions {
     my $eparser = HTML::TokeParser->new(\$parsetext);
     unless (@{$conditions{'name'}} or
 	    @{$conditions{'attribute'}}) {
-	return 0;
+	return 1;
     }
     my $nameflag=0;
     my $cdataflag=0;