Changeset 14558

Show
Ignore:
Timestamp:
22.09.2007 16:18:03 (12 years ago)
Author:
shaoqun
Message:

make it parse the plugout element in the collectionConfig.xml

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/cfgread4gs3.pm

    r14244 r14558  
    7878           "index" => "indexes", 
    7979           "plugin" => "plugin", 
     80               "plugout" => "plugout", 
    8081           "indexOption" => "indexoptions", 
    8182           "searchType" => "searchtype", 
     
    99100my $arrayexp = q/^(index|level|indexSubcollection|indexLanguage)$/; 
    100101my $arrayarrayexp= q/^(plugin|classifier)$/; 
    101  
    102102my $defaults = q/^(defaultIndex|defaultLevel|defaultIndexLanguage|languageMetadata)$/; 
    103103 
     
    147147    $data->{$key} = []; 
    148148      } 
    149  
    150149      push (@{$data->{$key}},$name); 
    151150    } 
     
    162161      push (@{$data->{$key}},$name); 
    163162    } 
    164  
     163    #@ plugout options 
     164    elsif ($element eq "plugout") { 
     165    $currentLevel = "plugout"; 
     166    my $key = $nameMap->{$currentLevel};     
     167    if (!defined $data->{$key}) { 
     168        $data->{$key} = []; 
     169    } 
     170    if(defined $name and $name ne ""){ 
     171        push (@{$data->{$key}},$name); 
     172    } 
     173    else{ 
     174       push (@{$data->{$key}},"GAPlugout");  
     175    } 
     176    } 
     177    if ($currentLevel eq "plugout" and $element eq "option") {      
     178    my $key = $nameMap->{$currentLevel}; 
     179    if (defined $name and $name ne ""){ 
     180        push (@{$data->{$key}},$name); 
     181    } 
     182    if (defined $value and $value ne  ""){ 
     183        push (@{$data->{$key}},$value); 
     184    } 
     185    } 
    165186    #@ use hash of hash of strings: hashexp 
    166187    elsif ($element eq "subcollection") {