Index: /gsdl/trunk/perllib/cfgread4gs3.pm
===================================================================
--- /gsdl/trunk/perllib/cfgread4gs3.pm (revision 15067)
+++ /gsdl/trunk/perllib/cfgread4gs3.pm (revision 15068)
@@ -118,4 +118,5 @@
my $desid = $_{'desid'};
my $assigned = $_{'assigned'};
+ my $lang = $_{'lang'};
#@ Marking repeated block
@@ -246,4 +247,9 @@
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,8 +726,9 @@
}
- 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', [""]);
+ # 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', [""]);
}
}