--- loncom/build/lpml_parse.pl	2002/01/31 17:08:40	1.38
+++ loncom/build/lpml_parse.pl	2002/02/05 01:28:16	1.39
@@ -3,7 +3,7 @@
 # The LearningOnline Network with CAPA
 # lpml_parse.pl - Linux Packaging Markup Language parser
 #
-# $Id: lpml_parse.pl,v 1.38 2002/01/31 17:08:40 harris41 Exp $
+# $Id: lpml_parse.pl,v 1.39 2002/02/05 01:28:16 harris41 Exp $
 #
 # Written by Scott Harrison, harris41@msu.edu
 #
@@ -183,6 +183,7 @@ $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)]);
@@ -208,7 +209,7 @@ while ($token = $parser->get_token()) {
 	    $cleanstring.=$token->[4];
 	}
 	if ($token->[4]=~/\/>$/) {
-	    $hloc--;
+#	    $hloc--;
 	}
     }
     if ($token->[0] eq 'E') {