Changeset 27352 for main/trunk/greenstone2/perllib/inexport.pm

Timestamp:

2013-05-16T15:10:00+12:00 (11 years ago)

Author:

kjdon

Message:

added filename into the list for OIDtype

File:

• main/trunk/greenstone2/perllib/inexport.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/inexport.pm

@@ -304 +304 @@
 
     if (!defined $self->{'OIDtype'} 
-    || ($self->{'OIDtype'} !~ /^(hash|hash_on_full_filename|incremental|assigned|dirname|full_filename)$/ )) {
+    || ($self->{'OIDtype'} !~ /^(hash|hash_on_full_filename|incremental|assigned|filename|dirname|full_filename)$/ )) {
     # OIDtype was either not defined on the command-line, or if it was not one of the recognized values
     if (defined $collectcfg->{'OIDtype'} 
-        && $collectcfg->{'OIDtype'} =~ /^(hash|hash_on_full_filename|incremental|assigned|dirname|full_filename)$/) {
+        && $collectcfg->{'OIDtype'} =~ /^(hash|hash_on_full_filename|incremental|assigned|filename|dirname|full_filename)$/) {
         $self->{'OIDtype'} = $collectcfg->{'OIDtype'};
     } else {