Changeset 31492 for main/trunk/greenstone2/perllib/plugins/OggVorbisPlugin.pm

Timestamp:

2017-03-13T11:12:37+13:00 (7 years ago)

Author:

kjdon

Message:

renamed EncodingUtil to CommonUtil, BasePlugin to BaseImporter. The idea is that only top level plugins that you can specify in your collection get to have plugin in their name. Modified all other plugins to reflect these name changes

File:

• main/trunk/greenstone2/perllib/plugins/OggVorbisPlugin.pm (modified) (5 diffs)

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

@@ -30 +30 @@
 
 
-use BasePlugin;
+use BaseImporter;
 use Ogg::Vorbis::Header::PurePerl;
 
@@ -38 +38 @@
 
 sub BEGIN {
-    @OggVorbisPlugin::ISA = ('BasePlugin');
+    @OggVorbisPlugin::ISA = ('BaseImporter');
 }
 
@@ -44 +44 @@
 my $arguments =
     [ { 'name' => "process_exp",
-    'desc' => "{BasePlugin.process_exp}",
+    'desc' => "{BaseImporter.process_exp}",
     'type' => "string",
     'deft' => &get_default_process_exp(),
@@ -53 +53 @@
     'deft' => "" }, 
       { 'name' => "file_rename_method",
-    'desc' => "{BasePlugin.file_rename_method}",
+    'desc' => "{BaseImporter.file_rename_method}",
     'type' => "enum",
     'deft' => &get_default_file_rename_method(), # by default rename imported files and assoc files using this encoding
-    'list' => $BasePlugin::file_rename_method_list,
+    'list' => $BaseImporter::file_rename_method_list,
     'reqd' => "no"
       } ];
@@ -88 +88 @@
     push(@{$hashArgOptLists->{"OptList"}},$options);
     
-    my $self = new BasePlugin($pluginlist, $inputargs, $hashArgOptLists);
+    my $self = new BaseImporter($pluginlist, $inputargs, $hashArgOptLists);
     
     return bless $self, $class;