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

Timestamp:

2009-12-02T14:50:15+13:00 (14 years ago)

Author:

kjdon

Message:

added a place for calling post_process method after the doc obj has been created and has had its id generated. Need this for pharos, as we are going to index an image using its identifier

File:

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

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

@@ -865 +865 @@
     $self->add_OID($doc_obj);
     
+    $self->post_process_doc_obj($pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli);
     return (1,$doc_obj);
+}
+
+sub post_process_doc_obj {
+    my $self = shift (@_);  
+    my ($pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli) = @_;
+
+    return 1;
 }
 
@@ -939 +947 @@
     
     my ($process_status,$doc_obj) = $self->read_into_doc_obj(@_);
-
+    
     if ((defined $process_status) && ($process_status == 1)) {
-
+    
     # process the document
     $processor->process($doc_obj);