Changeset 5935 for trunk/gsdl

Timestamp:

2003-11-21T14:49:05+13:00 (21 years ago)

Author:

kjdon

Message:

now handles subcollection collmeta properly

File:

• trunk/gsdl/perllib/mgppbuilder.pm (modified) (3 diffs)

trunk/gsdl/perllib/mgppbuilder.pm

@@ -444 +444 @@
 
     my %mapping = ();
+
     $mapping{'indexmaporder'} = [];
     $mapping{'subcollectionmaporder'} = [];
@@ -456 +457 @@
     foreach $index (@$indexes) {
     my ($fields, $subcollection, $languages) = split (":", $index);
-
     # the directory name starts with a processed version of index fields
     #my ($pindex) = $self->process_field($fields);
@@ -866 +866 @@
     }
     print $handle $level_entry;
+    
+    # now add subcoll meta
+    $subcoll_entry = "";
+    foreach $subcoll (@{$self->{'index_mapping'}->{'subcollectionmaporder'}}) {
+    if (defined $self->{'collect_cfg'}->{'collectionmeta'}->{".$subcoll"}) {
+        my $shortname = $self->{'index_mapping'}->{$subcoll};
+        $one_entry = $self->create_language_db_map(".$subcoll", $shortname);
+        $subcoll_entry .= $one_entry;
+    } else {
+        $subcoll_entry .= "<$shortname>$subcoll\n";
+    }
+    }
+    print $handle $subcoll_entry;
     #end the collection entry
     print $handle "\n" . ('-' x 70) . "\n";