--- loncom/build/piml_parse.pl	2002/01/31 17:32:25	1.2
+++ loncom/build/piml_parse.pl	2002/02/05 01:29:22	1.4
@@ -3,7 +3,7 @@
 # The LearningOnline Network with CAPA
 # piml_parse.pl - Linux Packaging Markup Language parser
 #
-# $Id: piml_parse.pl,v 1.2 2002/01/31 17:32:25 harris41 Exp $
+# $Id: piml_parse.pl,v 1.4 2002/02/05 01:29:22 harris41 Exp $
 #
 # Written by Scott Harrison, harris41@msu.edu
 #
@@ -30,7 +30,7 @@
 # http://www.lon-capa.org/
 #
 # YEAR=2002
-# 1/28 - Scott Harrison
+# 1/28,1/29,1/30,1/31 - Scott Harrison
 #
 ###
 
@@ -76,7 +76,7 @@ END
 # ------------------------------------------------- Grab command line arguments
 
 my $mode;
-if (@ARGV==4) {
+if (@ARGV==3) {
     $mode = shift @ARGV;
 }
 else {
@@ -190,7 +190,7 @@ while ($token = $parser->get_token()) {
 	    $cleanstring.=$token->[4];
 	}
 	if ($token->[4]=~/\/>$/) {
-	    $hloc--;
+#	    $hloc--;
 	}
     }
     if ($token->[0] eq 'E') {
@@ -236,6 +236,8 @@ my $fileglob_count;
 my $fileglobnames_count;
 my %categorycount;
 
+my $mode;
+
 my @buildall;
 my @buildinfo;
 
@@ -323,6 +325,7 @@ sub format_targetroot {
 # -------------------------------------------------- Format perl script section
 sub format_perlscript {
     my (@tokeninfo)=@_;
+    $mode=$tokeninfo->[2]{'mode'};
     my $text=$parser->get_text('/perlscript');
     $parser->get_tag('/perlscript');
     return $text;