Changeset 14741

Timestamp:

2007-10-30T12:41:23+13:00 (16 years ago)

Author:

xiao

Message:

modify to read flaxActivity elements and write out as serviceRack to buildConfig.xml

File:

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

gsdl/trunk/perllib/cfgread4gs3.pm

@@ -78 +78 @@
            "index" => "indexes",
            "plugin" => "plugin",
-               "plugout" => "plugout",
+           "plugout" => "plugout",
            "indexOption" => "indexoptions",
            "searchType" => "searchtype",
@@ -100 +100 @@
 my $arrayexp = q/^(index|level|indexSubcollection|indexLanguage)$/;
 my $arrayarrayexp= q/^(plugin|classifier)$/;
+
 my $defaults = q/^(defaultIndex|defaultLevel|defaultIndexLanguage|languageMetadata)$/;
 
@@ -114 +115 @@
     my $filter = $_{'filter'};
 
+    # for flax activities
+    my $desid = $_{'desid'};
+    my $assigned = $_{'assigned'};
+    
     #@ Marking repeated block
     if ($element =~ /$repeatedBlock/) {
@@ -147 +152 @@
     $data->{$key} = [];
       }
+
       push (@{$data->{$key}},$name);
     }
@@ -184 +190 @@
     }
     }
+
     #@ use hash of hash of strings: hashexp
     elsif ($element eq "subcollection") {
@@ -225 +232 @@
 
     }
-
+    #@ Handling each flaxActivity element (arrayarrayexp)
+    elsif ($element eq "flaxActivity") {
+        if (!defined $data->{'flaxActivity'}) {
+            $data->{'flaxActivity'} = [];
+        }
+        if(defined $assigned and $assigned =~ /\w/ and $assigned eq "true") {
+        if (defined $name and $name =~ /\w/) {
+            push (@{$data->{'flaxActivity'}->[$currentIndex]}, 'name');
+            push (@{$data->{'flaxActivity'}->[$currentIndex]}, $name);
+        }
+    
+        if (defined $desid and $desid =~ /\w/) {
+            push (@{$data->{'flaxActivity'}->[$currentIndex]}, 'desid');
+            push (@{$data->{'flaxActivity'}->[$currentIndex]}, $desid);
+        }       
+        }
+    }
 }
 
@@ -232 +255 @@
     my $endTags = q/^(browse|pluginList)$/;   
     if ($element =~ /$endTags/) {
-    $currentIndex = 0;
-    $currentLevel = "";
+        $currentIndex = 0;
+        $currentLevel = "";
     }
     # $arrayarrayexp contains classifier|plugin
-    elsif($element =~ /$arrayarrayexp/){
+    elsif($element =~ /$arrayarrayexp/ || $element eq "flaxActivity"){
         $currentIndex = $currentIndex + 1;
-      }
+    }
  
 }
@@ -697 +720 @@
     &write_line('COLCFG', ["<serviceRack name=\"PhindPhraseBrowse\" />"]);
     }
-  
+
+    my $flaxActivities = $collectcfg->{"flaxActivity"};
+    foreach my $fa (@$flaxActivities) {
+        if(defined $fa and @$fa[0] =~ /\w/ and @$fa[1] =~ /\w/ and @$fa[2] =~ /\w/ and @$fa[3] =~ /\w/ ) {
+            &write_line('COLCFG', ["<serviceRack ", @$fa[0], "=\"", @$fa[1], "\" ", @$fa[2], "=\"", @$fa[3], "\" />"]);
+        }
+    }  
+    
     &write_line('COLCFG', ["</serviceRackList>"]);
     &write_line('COLCFG', ["</buildConfig>"]);