Changeset 15068 for gsdl/trunk/perllib/cfgread4gs3.pm

Timestamp:

2008-03-07T13:47:19+13:00 (15 years ago)

Author:

xiao

Message:

when producing buildConfig.xml from collectionConfig.xml, add two more attributes: type=flaxActivity and lang=[value] into serviceRacks for flax activities.

File:

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

gsdl/trunk/perllib/cfgread4gs3.pm

@@ -118 +118 @@
     my $desid = $_{'desid'};
     my $assigned = $_{'assigned'};
+    my $lang = $_{'lang'};
     
     #@ Marking repeated block
@@ -246 +247 @@
             push (@{$data->{'flaxActivity'}->[$currentIndex]}, 'desid');
             push (@{$data->{'flaxActivity'}->[$currentIndex]}, $desid);
+        }       
+    
+        if (defined $lang and $lang =~ /\w/) {
+            push (@{$data->{'flaxActivity'}->[$currentIndex]}, 'lang');
+            push (@{$data->{'flaxActivity'}->[$currentIndex]}, $lang);
         }       
         }
@@ -720 +726 @@
     }
 
-    my $flaxActivities = $collectcfg->{"flaxActivity"};
+    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], "\" />"]);
+        # Six elements of the array for three attribute name/value pairs: name, desid, and lang.
+        if(defined $fa and @$fa[0] =~ /\w/ and @$fa[1] =~ /\w/ and @$fa[2] =~ /\w/ and @$fa[3] =~ /\w/  and @$fa[4] =~ /\w/ and @$fa[5] =~ /\w/) {
+            &write_line('COLCFG', ["<serviceRack type=\"flaxActivity\" ", @$fa[0], "=\"", @$fa[1], "\" ", @$fa[2], "=\"", @$fa[3], "\" ", @$fa[4], "=\"", @$fa[5], "\" />"]);
         }
     }