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

Timestamp:

2013-02-19T14:12:28+13:00 (11 years ago)

Author:

kjdon

Message:

ConvertBinaryFile needs to reset the doc OID after all the processing has been done. This will mean it uses the top level plugin OIDtype settings, rather than the secondary plugin ones.

File:

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

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

@@ -1020 +1020 @@
 sub add_OID {
     my $self = shift (@_);  
-    my ($doc_obj) = @_;
-
-    # don't add one if there is one already set
-    return unless $doc_obj->get_OID() =~ /^NULL$/;
+    my ($doc_obj, $force) = @_;
+
+    # don't add one if there is one already set, unless we are forced to do so
+    return unless ($doc_obj->get_OID() =~ /^NULL$/ || $force);
     $doc_obj->set_OIDtype($self->{'OIDtype'}, $self->{'OIDmetadata'});