Changeset 6544
- Timestamp:
- 2004-01-19T15:38:42+13:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/mgppbuilder.pm
r6407 r6544 169 169 else { # add in an empty subcollection field 170 170 push (@{$self->{'collect_cfg'}->{'indexes'}}, "$index\:\:$language"); 171 171 172 } 172 173 } … … 513 514 if ($plang =~ /\w/ && !defined ($mapping{'languagemap'}{$languages})) { 514 515 $mapping{'languagemap'}{$languages} = $plang; 515 push (@{$mapping{'languagemaporder'}}, $language );516 push (@{$mapping{'languagemaporder'}}, $languages); 516 517 $mapping{$languages} = $plang; 517 518 } … … 649 650 # a language subcollection - only put languages expressions for the 650 651 # ones we want in the index 651 652 652 653 my @languages = (); 653 654 @languages = split /,/, $language if (defined $language); … … 657 658 $not = 1; 658 659 } 659 foreach $lang (@{$self->{'collect_cfg'}->{'languages'}}) { 660 if ($lang eq $language) { 661 if ($not) { 662 push (@$indexexparr, "!Language/$language/"); 663 } else { 664 push (@$indexexparr, "Language/$language/"); 665 } 666 last; 667 } 660 if ($not) { 661 push (@$indexexparr, "!Language/$language/"); 662 } else { 663 push (@$indexexparr, "Language/$language/"); 668 664 } 669 665 } … … 907 903 } 908 904 print $handle $subcoll_entry; 909 #end the collection entry 905 # now add language meta 906 $lang_entry = ""; 907 foreach $lang (@{$self->{'index_mapping'}->{'languagemaporder'}}) { 908 if (defined $self->{'collect_cfg'}->{'collectionmeta'}->{".$lang"}) { 909 my $shortname = $self->{'index_mapping'}->{$lang}; 910 $one_entry = $self->create_language_db_map(".$lang", $shortname); 911 $lang_entry .= $one_entry; 912 } else { 913 $lang_entry .= "<$shortname>$lang\n"; 914 } 915 } 916 print $handle $lang_entry; 917 #end the collection entry 910 918 print $handle "\n" . ('-' x 70) . "\n"; 911 919
Note:
See TracChangeset
for help on using the changeset viewer.