Changeset 28700 for main/trunk

Timestamp:

2013-11-28T14:39:07+13:00 (10 years ago)

Author:

kjdon

Message:

when parsing the args, if we are setting the value based on the default, set also default_argname, so that later on we can tell the difference between a default value explicitly set by the user, or one just from the default in the arg description. This means that we cna now set all defaults in the args data structure, rather than leaving them empty and setting the default in the code.

File:

• main/trunk/greenstone2/perllib/parse2.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/parse2.pm

@@ -361 +361 @@
         {
         $self->{"$strArgName"} = $hashOneArg->{"deft"};
+        $self->{"default_$strArgName"} = 1;
+
         }
         else
@@ -366 +368 @@
         if($hashOneArg->{"type"} eq "flag"){ 
             $self->{"$strArgName"} = 0;
+            $self->{"default_$strArgName"} = 1;
         }
         else {
             # all other cases, use "" as default
             $self->{"$strArgName"} = "";
+            $self->{"default_$strArgName"} = 1;
         }
         }