Changeset 17126

Show
Ignore:
Timestamp:
04.09.2008 09:49:20 (11 years ago)
Author:
kjdon
Message:

inherit and use args form ReadTextFile? cos we want the file encoding stuff

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugins/OAIPlugin.pm

    r17103 r17126  
    4646    'type' => "regexp", 
    4747    'reqd' => "no", 
    48     'deft' => &get_default_process_exp() }, 
    49       { 'name' => "input_encoding", # needed by subroutine textcat_get_language_encoding 
    50     'desc' => "{ReadTextFile.input_encoding}", 
    51     'type' => "enum", 
    52     'list' => $ReadTextFile::encoding_plus_auto_list, 
    53     'reqd' => "no" , 
    54     'deft' => "auto" } 
     48    'deft' => &get_default_process_exp() } 
    5549      ]; 
    5650 
     
    7165    push(@{$hashArgOptLists->{"OptList"}},$options); 
    7266 
     67    new ReadTextFile($pluginlist, $inputargs, $hashArgOptLists,1); 
    7368    my $self = new ReadXMLFile($pluginlist, $inputargs, $hashArgOptLists); 
    7469