--- loncom/build/piml_parse.pl 2002/11/26 15:25:21 1.8 +++ loncom/build/piml_parse.pl 2002/12/03 21:37:08 1.9 @@ -8,7 +8,7 @@ # The LearningOnline Network with CAPA # piml_parse.pl - Linux Packaging Markup Language parser # -# $Id: piml_parse.pl,v 1.8 2002/11/26 15:25:21 matthew Exp $ +# $Id: piml_parse.pl,v 1.9 2002/12/03 21:37:08 harris41 Exp $ # # Written by Scott Harrison, codeharrison@yahoo.com # @@ -66,12 +66,11 @@ use HTML::TokeParser; my $usage=(<=3) { +if (@ARGV==3) { $mode = shift @ARGV; } else {