[LON-CAPA-cvs] cvs: loncom /build piml_parse.pl

[albertel]

albertel		Wed Oct  5 14:37:05 2005 EDT

  Modified files:              
    /loncom/build	piml_parse.pl 
  Log:
  - adding <DIST /> as a tag possibility for the body of a <perlscript> (Well for inside any tag really)
  
  
Index: loncom/build/piml_parse.pl
diff -u loncom/build/piml_parse.pl:1.10 loncom/build/piml_parse.pl:1.11
--- loncom/build/piml_parse.pl:1.10	Tue Dec  3 17:36:32 2002
+++ loncom/build/piml_parse.pl	Wed Oct  5 14:37:03 2005
@@ -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 @@
     filenames => \&format_filenames,
     perlscript => \&format_perlscript,
     TARGET => \&format_TARGET,
+    DIST => \&format_DIST,
     };
 
 my $text;
@@ -368,6 +369,13 @@
     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'));