--- loncom/build/lpml_parse.pl 2002/01/31 17:08:40 1.38 +++ loncom/build/lpml_parse.pl 2002/03/22 02:09:41 1.42 @@ -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.42 2002/03/22 02:09:41 harris41 Exp $ # # Written by Scott Harrison, harris41@msu.edu # @@ -37,8 +37,7 @@ # 11/4,11/5,11/6,11/7,11/16,11/17 - Scott Harrison # 12/2,12/3,12/4,12/5,12/6,12/13,12/19,12/29 - Scott Harrison # YEAR=2002 -# 1/8,1/9 - Scott Harrison -# +# 1/8,1/9,1/29,1/31,2/5,3/21 - Scott Harrison ### ############################################################################### @@ -208,7 +207,7 @@ while ($token = $parser->get_token()) { $cleanstring.=$token->[4]; } if ($token->[4]=~/\/>$/) { - $hloc--; +# $hloc--; } } if ($token->[0] eq 'E') { @@ -949,7 +948,9 @@ sub format_directory { my ($chmod,$chown)=split(/\s/,$categoryhash{$categoryname}); return $directory="\n