Changeset 20102 for gsdl/trunk/perllib/collConfigxml.pm
- Timestamp:
- 2009-07-29T13:32:12+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/collConfigxml.pm
r20099 r20102 168 168 # for subcollections 169 169 my $filter = $_{'filter'}; 170 171 # for flax activities172 my $desid = $_{'desid'};173 my $assigned = $_{'assigned'};174 my $lang = $_{'lang'};175 170 176 171 #@ Marking repeated block … … 303 298 304 299 } 305 #@ Handling each flaxActivity element (arrayarrayexp) 306 elsif ($element eq "flaxActivity") { 307 if (!defined $data->{'flaxActivity'}) { 308 $data->{'flaxActivity'} = []; 309 } 310 if(defined $assigned and $assigned =~ /\w/ and $assigned eq "true") { 311 if (defined $name and $name =~ /\w/) { 312 push (@{$data->{'flaxActivity'}->[$currentIndex]}, 'name'); 313 push (@{$data->{'flaxActivity'}->[$currentIndex]}, $name); 314 } 315 316 if (defined $desid and $desid =~ /\w/) { 317 push (@{$data->{'flaxActivity'}->[$currentIndex]}, 'desid'); 318 push (@{$data->{'flaxActivity'}->[$currentIndex]}, $desid); 319 } 320 321 if (defined $lang and $lang =~ /\w/) { 322 push (@{$data->{'flaxActivity'}->[$currentIndex]}, 'lang'); 323 push (@{$data->{'flaxActivity'}->[$currentIndex]}, $lang); 324 } 325 } 326 } 300 327 301 } 328 302 … … 335 309 } 336 310 # $arrayarrayexp contains classifier|plugin 337 elsif($element =~ /$arrayarrayexp/ || $element eq "flaxActivity"){311 elsif($element =~ /$arrayarrayexp/ ){ 338 312 $currentIndex = $currentIndex + 1; 339 313 }
Note:
See TracChangeset
for help on using the changeset viewer.