Changeset 9548
- Timestamp:
- 2005-04-04T16:19:11+12:00 (19 years ago)
- Location:
- trunk/gsdl/perllib
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/lucenebuilder.pm
r9214 r9548 251 251 # should we just have one entry with Language/en,es/ ?? 252 252 my @languages = (); 253 my $language_metadata = "Language"; 254 if (defined ($self->{'collect_cfg'}->{'language_metadata'})) { 255 $language_metadata = $self->{'collect_cfg'}->{'language_metadata'}; 256 } 253 257 @languages = split /,/, $language if (defined $language); 254 foreach $language (@languages) {258 foreach my $language (@languages) { 255 259 my $not=0; 256 260 if ($language =~ s/^\!//) { 257 261 $not = 1; 258 262 } 259 if 260 push (@$indexexparr, "! Language/$language/");263 if($not) { 264 push (@$indexexparr, "!$language_metadata/$language/"); 261 265 } else { 262 push (@$indexexparr, " Language/$language/");266 push (@$indexexparr, "$language_metadata/$language/"); 263 267 } 264 268 } -
trunk/gsdl/perllib/mgbuilder.pm
r8776 r9548 565 565 566 566 my @languages = (); 567 my $language_metadata = "Language"; 568 if (defined ($self->{'collect_cfg'}->{'language_metadata'})) { 569 $language_metadata = $self->{'collect_cfg'}->{'language_metadata'}; 570 } 567 571 @languages = split /,/, $language if (defined $language); 568 572 foreach my $language (@languages) { … … 572 576 } 573 577 if($not) { 574 push (@$indexexparr, "! Language/$language/");578 push (@$indexexparr, "!$language_metadata/$language/"); 575 579 } else { 576 push (@$indexexparr, " Language/$language/");580 push (@$indexexparr, "$language_metadata/$language/"); 577 581 } 578 582 } -
trunk/gsdl/perllib/mgppbuilder.pm
r9157 r9548 665 665 # should we just have one entry with Language/en,es/ ?? 666 666 my @languages = (); 667 my $language_metadata = "Language"; 668 if (defined ($self->{'collect_cfg'}->{'language_metadata'})) { 669 $language_metadata = $self->{'collect_cfg'}->{'language_metadata'}; 670 } 667 671 @languages = split /,/, $language if (defined $language); 668 foreach $language (@languages) {672 foreach my $language (@languages) { 669 673 my $not=0; 670 674 if ($language =~ s/^\!//) { 671 675 $not = 1; 672 676 } 673 if 674 push (@$indexexparr, "! Language/$language/");677 if($not) { 678 push (@$indexexparr, "!$language_metadata/$language/"); 675 679 } else { 676 push (@$indexexparr, " Language/$language/");680 push (@$indexexparr, "$language_metadata/$language/"); 677 681 } 678 682 }
Note:
See TracChangeset
for help on using the changeset viewer.