Changeset 31479 for main/trunk/greenstone2/perllib

Timestamp:

2017-03-09T14:34:22+13:00 (7 years ago)

Author:

kjdon

Message:

inherit from EncodingUtil instead of PrintInfo

File:

• main/trunk/greenstone2/perllib/plugins/ArchivesInfPlugin.pm (modified) (4 diffs)

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

@@ -33 +33 @@
 use FileUtils;
 use doc;
-use PrintInfo;
+use EncodingUtil;
 use plugin;
 use arcinfo;
@@ -43 +43 @@
 
 BEGIN {
-    @ArchivesInfPlugin::ISA = ('PrintInfo');
+    @ArchivesInfPlugin::ISA = ('EncodingUtil');
 }
 
@@ -79 +79 @@
     push(@{$hashArgOptLists->{"OptList"}},$options);
 
-    my $self = new PrintInfo($pluginlist, $inputargs, $hashArgOptLists);
+    my $self = new EncodingUtil($pluginlist, $inputargs, $hashArgOptLists);
 
     return bless $self, $class;
@@ -207 +207 @@
     my ($filename_full_path, $filename_no_path) 
         = &util::get_full_filenames($base_dir, $file);
-    &util::block_filename($block_hash,$filename_full_path);
+    $self->block_raw_filename($block_hash,$filename_full_path);
     return 1;
     }