Changeset 26221 for main/trunk/greenstone2/perllib/plugins/BasePlugin.pm

Timestamp:

2012-09-20T09:34:45+12:00 (12 years ago)

Author:

kjdon

Message:

new OIDtype, filename, will use the file name without any folders or file extension. Must be unique filenames in the collection. BasePlugin add_OID method returns if an id has already been set

File:

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

main/trunk/greenstone2/perllib/plugins/BasePlugin.pm

@@ -101 +101 @@
       { 'name' => "incremental",
         'desc' => "{import.OIDtype.incremental}" },
+      { 'name' => "filename",
+        'desc' => "{import.OIDtype.filename}" },
       { 'name' => "dirname",
         'desc' => "{import.OIDtype.dirname}" } ];
@@ -1016 +1018 @@
     my ($doc_obj) = @_;
 
+    # don't add one if there is one already set
+    return unless $doc_obj->get_OID() =~ /^NULL$/;
     $doc_obj->set_OIDtype($self->{'OIDtype'}, $self->{'OIDmetadata'});