Changeset 14558

Timestamp:

2007-09-22T16:18:03+12:00 (16 years ago)

Author:

shaoqun

Message:

make it parse the plugout element in the collectionConfig.xml

File:

• gsdl/trunk/perllib/cfgread4gs3.pm (modified) (4 diffs)

gsdl/trunk/perllib/cfgread4gs3.pm

@@ -78 +78 @@
            "index" => "indexes",
            "plugin" => "plugin",
+               "plugout" => "plugout",
            "indexOption" => "indexoptions",
            "searchType" => "searchtype",
@@ -99 +100 @@
 my $arrayexp = q/^(index|level|indexSubcollection|indexLanguage)$/;
 my $arrayarrayexp= q/^(plugin|classifier)$/;
-
 my $defaults = q/^(defaultIndex|defaultLevel|defaultIndexLanguage|languageMetadata)$/;
 
@@ -147 +147 @@
     $data->{$key} = [];
       }
-
       push (@{$data->{$key}},$name);
     }
@@ -162 +161 @@
       push (@{$data->{$key}},$name);
     }
-
+    #@ plugout options
+    elsif ($element eq "plugout") {
+    $currentLevel = "plugout";
+    my $key = $nameMap->{$currentLevel};    
+    if (!defined $data->{$key}) {
+        $data->{$key} = [];
+    }
+    if(defined $name and $name ne ""){
+        push (@{$data->{$key}},$name);
+    }
+    else{
+       push (@{$data->{$key}},"GAPlugout"); 
+    }
+    }
+    if ($currentLevel eq "plugout" and $element eq "option") {     
+    my $key = $nameMap->{$currentLevel};
+    if (defined $name and $name ne ""){
+        push (@{$data->{$key}},$name);
+    }
+    if (defined $value and $value ne  ""){
+        push (@{$data->{$key}},$value);
+    }
+    }
     #@ use hash of hash of strings: hashexp
     elsif ($element eq "subcollection") {