Show
Ignore:
Timestamp:
09.03.2017 14:31:23 (3 years ago)
Author:
kjdon
Message:

blocking moved to EncodingUTil

Files:
1 modified

Legend:

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

    r31457 r31476  
    8787    'deft' => "", 
    8888    'reqd' => "no" }, 
    89       { 'name' => "no_blocking", 
    90     'desc' => "{BasePlugin.no_blocking}", 
    91     'type' => "flag", 
    92     'reqd' => "no"}, 
    93       { 'name' => "block_exp", 
    94     'desc' => "{BasePlugin.block_exp}", 
    95     'type' => "regexp", 
    96     'deft' => "", 
    97     'reqd' => "no" }, 
    98       { 'name' => "store_original_file", 
     89     { 'name' => "store_original_file", 
    9990    'desc' => "{BasePlugin.store_original_file}", 
    10091    'type' => "flag", 
     
    391382 
    392383    if ($self->{'block_exp'} ne "" && $filename_full_path =~ /$self->{'block_exp'}/) { 
    393     &util::block_filename($block_hash,$filename_full_path); 
     384    $self->block_filename($block_hash,$filename_full_path); 
    394385    } 
    395386 
     
    415406    }    
    416407    if (&FileUtils::fileExists($coverfile)) { 
    417         &util::block_filename($block_hash,$coverfile); 
     408        $self->block_filename($block_hash,$coverfile); 
    418409    }  
    419410    }