Changeset 28700 for main/trunk/greenstone2/perllib/parse2.pm
- Timestamp:
- 2013-11-28T14:39:07+13:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/parse2.pm
r27303 r28700 361 361 { 362 362 $self->{"$strArgName"} = $hashOneArg->{"deft"}; 363 $self->{"default_$strArgName"} = 1; 364 363 365 } 364 366 else … … 366 368 if($hashOneArg->{"type"} eq "flag"){ 367 369 $self->{"$strArgName"} = 0; 370 $self->{"default_$strArgName"} = 1; 368 371 } 369 372 else { 370 373 # all other cases, use "" as default 371 374 $self->{"$strArgName"} = ""; 375 $self->{"default_$strArgName"} = 1; 372 376 } 373 377 }
Note:
See TracChangeset
for help on using the changeset viewer.