Changeset 3515

Timestamp:

2002-11-05T17:23:35+13:00 (21 years ago)

Author:

jrm21

Message:

call a plugin's set_OID() method if one exists, otherwise use the
default one in doc.pm. Previously, a plugin could only override this if it
also overrode the read() method from BasPlug.

File:

• trunk/gsdl/perllib/plugins/BasPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -322 +322 @@
    
     # add an OID
-    $doc_obj->set_OID();
+    # see if there is a plugin-specific set_OID function...
+    if (defined ($self->can(set_OID))) {
+    # it will need $doc_obj to set the Identifier metadata...
+    $self->set_OID($doc_obj);
+    } else {
+    # use the default set_OID() in doc.pm
+    $doc_obj->set_OID();
+    }
 
     # process the document