- Timestamp:
- 2017-03-13T11:12:37+13:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/MediainfoOGVPlugin.pm
r24546 r31492 50 50 package MediainfoOGVPlugin; 51 51 52 use Base Plugin;52 use BaseImporter; 53 53 54 54 use strict; … … 57 57 58 58 sub BEGIN { 59 @MediainfoOGVPlugin::ISA = ('Base Plugin');59 @MediainfoOGVPlugin::ISA = ('BaseImporter'); 60 60 } 61 61 62 62 my $arguments = 63 63 [ { 'name' => "process_exp", 64 'desc' => "{Base Plugin.process_exp}",64 'desc' => "{BaseImporter.process_exp}", 65 65 'type' => "regexp", 66 66 'deft' => &get_default_process_exp(), … … 88 88 push(@{$hashArgOptLists->{"OptList"}},$options); 89 89 90 my $self = new Base Plugin($pluginlist, $inputargs, $hashArgOptLists);90 my $self = new BaseImporter($pluginlist, $inputargs, $hashArgOptLists); 91 91 92 92 return bless $self, $class; … … 97 97 my ($verbosity, $outhandle, $failhandle) = @_; 98 98 99 $self->Base Plugin::init($verbosity, $outhandle, $failhandle);99 $self->BaseImporter::init($verbosity, $outhandle, $failhandle); 100 100 101 101 # Check that Mediainfo is installed and available on the path (except for Windows 95/98)
Note:
See TracChangeset
for help on using the changeset viewer.