Changeset 21240
- Timestamp:
- 2009-12-02T17:11:32+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/ImagePlugin.pm
r19361 r21240 28 28 use BasePlugin; 29 29 use ImageConverter; 30 use PharosImageIndexer; 30 31 31 32 use strict; … … 36 37 37 38 sub BEGIN { 38 @ImagePlugin::ISA = ('BasePlugin', 'ImageConverter' );39 @ImagePlugin::ISA = ('BasePlugin', 'ImageConverter', 'PharosImageIndexer'); 39 40 } 40 41 … … 63 64 push(@{$hashArgOptLists->{"OptList"}},$options); 64 65 66 65 67 new ImageConverter($pluginlist, $inputargs, $hashArgOptLists); 68 new PharosImageIndexer($pluginlist, $inputargs, $hashArgOptLists); 66 69 my $self = new BasePlugin($pluginlist, $inputargs, $hashArgOptLists); 67 70 … … 75 78 $self->SUPER::init(@_); 76 79 $self->ImageConverter::init(); 80 $self->PharosImageIndexer::init(); 77 81 $self->{'cover_image'} = 0; # makes no sense for images 78 82 } … … 84 88 $self->SUPER::begin(@_); 85 89 $self->ImageConverter::begin(@_); 90 $self->PharosImageIndexer::begin(@_); 86 91 } 87 92 … … 144 149 } 145 150 151 sub post_process_doc_obj { 152 my $self = shift (@_); 153 # options?? 154 my ($pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli) = @_; 155 if ($self->{'enable_pharos_imageis'}) { 156 $self->pharos_index_image(&util::filename_cat($base_dir, $file), $doc_obj); 157 } 158 } 159 146 160 sub clean_up_after_doc_obj_processing { 147 161 my $self = shift(@_);
Note:
See TracChangeset
for help on using the changeset viewer.