Changeset 5935
- Timestamp:
- 2003-11-21T14:49:05+13:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/mgppbuilder.pm
r5768 r5935 444 444 445 445 my %mapping = (); 446 446 447 $mapping{'indexmaporder'} = []; 447 448 $mapping{'subcollectionmaporder'} = []; … … 456 457 foreach $index (@$indexes) { 457 458 my ($fields, $subcollection, $languages) = split (":", $index); 458 459 459 # the directory name starts with a processed version of index fields 460 460 #my ($pindex) = $self->process_field($fields); … … 866 866 } 867 867 print $handle $level_entry; 868 869 # now add subcoll meta 870 $subcoll_entry = ""; 871 foreach $subcoll (@{$self->{'index_mapping'}->{'subcollectionmaporder'}}) { 872 if (defined $self->{'collect_cfg'}->{'collectionmeta'}->{".$subcoll"}) { 873 my $shortname = $self->{'index_mapping'}->{$subcoll}; 874 $one_entry = $self->create_language_db_map(".$subcoll", $shortname); 875 $subcoll_entry .= $one_entry; 876 } else { 877 $subcoll_entry .= "<$shortname>$subcoll\n"; 878 } 879 } 880 print $handle $subcoll_entry; 868 881 #end the collection entry 869 882 print $handle "\n" . ('-' x 70) . "\n";
Note:
See TracChangeset
for help on using the changeset viewer.