Changeset 27352 for main/trunk/greenstone2/perllib/plugouts/BasePlugout.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/plugouts/BasePlugout.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm

@@ -288 +288 @@
 }
 
-# OIDtype may be "hash" or "incremental" or "dirname" or "assigned"
+# OIDtype may be "hash" or "hash_on_full_filename" or "incremental" or "filename" or "dirname" or "full_filename" or "assigned"
 sub set_OIDtype {
     my $self = shift (@_);
     my ($type, $metadata) = @_;
 
-    if ($type =~ /^(hash|hash_on_full_filename|incremental|dirname|full_filename|assigned)$/) {
+    if ($type =~ /^(hash|hash_on_full_filename|incremental|filename|dirname|full_filename|assigned)$/) {
     $self->{'OIDtype'} = $type;
     } else {