Changeset 26222 for main/trunk/greenstone2/perllib/plugins/PagedImagePlugin.pm

Timestamp:

2012-09-20T09:36:42+12:00 (12 years ago)

Author:

kjdon

Message:

added plugin_specific_process method - inheriting plugins can use this to add metadata etc

File:

• main/trunk/greenstone2/perllib/plugins/PagedImagePlugin.pm (modified) (3 diffs)

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

@@ -344 +344 @@
     $doc_obj = $self->{'doc_obj'};
     } else {
-    my ($dir);
-    ($dir, $file) = $filename_full_path =~ /^(.*?)([^\/\\]*)$/;
+    my ($dir, $item_file);
+    ($dir, $item_file) = $filename_full_path =~ /^(.*?)([^\/\\]*)$/;
 
     #process the .item file
-    $doc_obj = $self->process_item($filename_full_path, $dir, $file, $processor, $metadata);
+    $doc_obj = $self->process_item($filename_full_path, $dir, $item_file, $processor, $metadata);
     
     }
@@ -362 +362 @@
     $self->extra_metadata ($doc_obj, $section, $metadata);
     $self->auto_extract_metadata ($doc_obj);
-
+    $self->plugin_specific_process($base_dir, $file, $doc_obj, $gli);
     # if we haven't found any Title so far, assign one
     $self->title_fallback($doc_obj,$section,$filename_no_path);
@@ -368 +368 @@
     $self->add_OID($doc_obj);
     return (1,$doc_obj);
+}
+# override this for an inheriting plugin to add extra metadata etc
+sub plugin_specific_process {
+    my $self = shift(@_);
+    my ($base_dir, $file, $doc_obj, $gli) = @_;
+
 }