Show
Ignore:
Timestamp:
09.03.2017 14:34:22 (3 years ago)
Author:
kjdon
Message:

inherit from EncodingUtil? instead of PrintInfo?

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/plugins/ArchivesInfPlugin.pm

    r28638 r31479  
    3333use FileUtils; 
    3434use doc; 
    35 use PrintInfo; 
     35use EncodingUtil; 
    3636use plugin; 
    3737use arcinfo; 
     
    4343 
    4444BEGIN { 
    45     @ArchivesInfPlugin::ISA = ('PrintInfo'); 
     45    @ArchivesInfPlugin::ISA = ('EncodingUtil'); 
    4646} 
    4747 
     
    7979    push(@{$hashArgOptLists->{"OptList"}},$options); 
    8080 
    81     my $self = new PrintInfo($pluginlist, $inputargs, $hashArgOptLists); 
     81    my $self = new EncodingUtil($pluginlist, $inputargs, $hashArgOptLists); 
    8282 
    8383    return bless $self, $class; 
     
    207207    my ($filename_full_path, $filename_no_path)  
    208208        = &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); 
    210210    return 1; 
    211211    }