Changeset 21240 for main/trunk/greenstone2

Timestamp:

2009-12-02T17:11:32+13:00 (14 years ago)

Author:

kjdon

Message:

use the new PharosImageIndexer plugin

File:

• main/trunk/greenstone2/perllib/plugins/ImagePlugin.pm (modified) (6 diffs)

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

@@ -28 +28 @@
 use BasePlugin;
 use ImageConverter;
+use PharosImageIndexer;
 
 use strict;
@@ -36 +37 @@
 
 sub BEGIN {
-    @ImagePlugin::ISA = ('BasePlugin', 'ImageConverter');
+    @ImagePlugin::ISA = ('BasePlugin', 'ImageConverter', 'PharosImageIndexer');
 }
 
@@ -63 +64 @@
     push(@{$hashArgOptLists->{"OptList"}},$options);
 
+    
     new ImageConverter($pluginlist, $inputargs, $hashArgOptLists);
+    new PharosImageIndexer($pluginlist, $inputargs, $hashArgOptLists);
     my $self = new BasePlugin($pluginlist, $inputargs, $hashArgOptLists);
 
@@ -75 +78 @@
     $self->SUPER::init(@_);
     $self->ImageConverter::init();
+    $self->PharosImageIndexer::init();
     $self->{'cover_image'} = 0; # makes no sense for images
 }
@@ -84 +88 @@
     $self->SUPER::begin(@_);
     $self->ImageConverter::begin(@_);
+    $self->PharosImageIndexer::begin(@_);
 }
 
@@ -144 +149 @@
 }
 
+sub post_process_doc_obj {
+    my $self = shift (@_);
+    # options??
+    my ($pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli) = @_;
+    if ($self->{'enable_pharos_imageis'}) {
+    $self->pharos_index_image(&util::filename_cat($base_dir, $file), $doc_obj);
+    }
+}
+
 sub clean_up_after_doc_obj_processing {
     my $self = shift(@_);