Changeset 31479
- Timestamp:
- 2017-03-09T14:34:22+13:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/ArchivesInfPlugin.pm
r28638 r31479 33 33 use FileUtils; 34 34 use doc; 35 use PrintInfo;35 use EncodingUtil; 36 36 use plugin; 37 37 use arcinfo; … … 43 43 44 44 BEGIN { 45 @ArchivesInfPlugin::ISA = (' PrintInfo');45 @ArchivesInfPlugin::ISA = ('EncodingUtil'); 46 46 } 47 47 … … 79 79 push(@{$hashArgOptLists->{"OptList"}},$options); 80 80 81 my $self = new PrintInfo($pluginlist, $inputargs, $hashArgOptLists);81 my $self = new EncodingUtil($pluginlist, $inputargs, $hashArgOptLists); 82 82 83 83 return bless $self, $class; … … 207 207 my ($filename_full_path, $filename_no_path) 208 208 = &util::get_full_filenames($base_dir, $file); 209 &util::block_filename($block_hash,$filename_full_path);209 $self->block_raw_filename($block_hash,$filename_full_path); 210 210 return 1; 211 211 }
Note:
See TracChangeset
for help on using the changeset viewer.