Changeset 9479

Timestamp:

Oct 10, 2006, 5:09:06 PM (20 years ago)

Author:

jhoblitt

Message:

fix MULTI parsing of TYPEs

Location:

trunk/PS-IPP-Metadata-Config

Files:

• Changes (modified) (1 diff)
• config_grammar.txt (modified) (2 diffs)

trunk/PS-IPP-Metadata-Config/Changes

@@ -1 +1 @@
 Revision history for Perl module PS::IPP::Metadata::Config
+
+0.07
+    - fix MULTI parsing of TYPEs
+    - minor test update
 
 0.06 Tue Oct  3 15:25:44 HST 2006

trunk/PS-IPP-Metadata-Config/config_grammar.txt

@@ -1 +1 @@
 # Copyright (c) 2005  Joshua Hoblitt
 #
-# $Id: config_grammar.txt,v 1.4 2006-10-04 01:25:05 jhoblitt Exp $
+# $Id: config_grammar.txt,v 1.5 2006-10-11 03:08:36 jhoblitt Exp $
 
 {
@@ -186 +186 @@
                     value   => \@md,
                 };
-            }
+
+                if ( defined $thisparser->{local}{name}{ $item{name} } ) {
+                    $return->{multi}++
+                        if $thisparser->{local}{name}{ $item{name} } =~ /MULTI/;
+                } else {
+                    $thisparser->{local}{name}{ $item{name} }++;
+                }
+            }
+
         }
     | <error?:'TYPE' does not have enough parameters: $text> <reject>