--- loncom/build/lpml_parse.pl	2002/02/05 01:28:16	1.39
+++ loncom/build/lpml_parse.pl	2002/02/05 01:28:57	1.40
@@ -3,7 +3,7 @@
 # The LearningOnline Network with CAPA
 # lpml_parse.pl - Linux Packaging Markup Language parser
 #
-# $Id: lpml_parse.pl,v 1.39 2002/02/05 01:28:16 harris41 Exp $
+# $Id: lpml_parse.pl,v 1.40 2002/02/05 01:28:57 harris41 Exp $
 #
 # Written by Scott Harrison, harris41@msu.edu
 #
@@ -183,7 +183,6 @@ $parser->xml_mode('1');
 my $cleanstring;
 while ($token = $parser->get_token()) {
     if ($token->[0] eq 'S') {
-	print "HLOC: $hloc $token->[4]\n";
 	$hloc++;
 	$hierarchy[$hloc]++;
 	$key=$token->[1].join(',',@hierarchy[0..($hloc-1)]);