Changeset 18914

Timestamp:

2009-04-08T14:00:39+12:00 (15 years ago)

Author:

kjdon

Message:

added a new type of arg - enumstring which has an enumerated list or options but also allows free values - a cross between string adn enum

File:

• gsdl/trunk/perllib/parse2.pm (modified) (1 diff)

gsdl/trunk/perllib/parse2.pm

@@ -166 +166 @@
     # just shift the next argument from $aryptInputArguList
     # TODO: make sure if there is any checking required for this two types
-    elsif($strArgType eq "string" || $strArgType eq "quotestr" || $strArgType eq "metadata" || $strArgType eq "regexp" || $strArgType eq "url")
+    elsif($strArgType eq "string" || $strArgType eq "enumstring" || $strArgType eq "quotestr" || $strArgType eq "metadata" || $strArgType eq "regexp" || $strArgType eq "url")
     {
     $hashInputArg->{$strArgName}= shift(@{$aryptInputArguList});