--- loncom/build/piml_parse.pl	2002/12/03 22:36:32	1.10
+++ loncom/build/piml_parse.pl	2005/10/05 18:37:03	1.11
@@ -8,7 +8,7 @@
 # The LearningOnline Network with CAPA
 # piml_parse.pl - Linux Packaging Markup Language parser
 #
-# $Id: piml_parse.pl,v 1.10 2002/12/03 22:36:32 harris41 Exp $
+# $Id: piml_parse.pl,v 1.11 2005/10/05 18:37:03 albertel Exp $
 #
 # Written by Scott Harrison, codeharrison@yahoo.com
 #
@@ -286,6 +286,7 @@ $parser->{textify}={
     filenames => \&format_filenames,
     perlscript => \&format_perlscript,
     TARGET => \&format_TARGET,
+    DIST => \&format_DIST,
     };
 
 my $text;
@@ -368,6 +369,13 @@ sub format_TARGET {
     return($target);
 }
 
+# ----------------------------------------------------------------- Format DIST
+sub format_DIST {
+    my (@tokeninfo)=@_;
+    $parser->get_tag('/DIST');
+    return($dist);
+}
+
 # --------------------------------------------------- Format categories section
 sub format_categories {
     my $text=&trim($parser->get_text('/categories'));