Changeset 378 for trunk/gsdl/perllib/mgbuilder.pm

Timestamp:

1999-07-14T11:38:50+12:00 (25 years ago)

Author:

sjboddie

Message:

fixed bug in writing out subcollectionmap and languagemap to build.cfg

File:

• trunk/gsdl/perllib/mgbuilder.pm (modified) (2 diffs)

trunk/gsdl/perllib/mgbuilder.pm

@@ -540 +540 @@
     my @subcollectionmap = ();
     foreach $subcollection (@{$self->{'index_mapping'}->{'subcollectionmaporder'}}) {
-    push (@subcollectionmap, "$subcollection\-\>$self->{'index_mapping'}->".
-          "{'subcollectionmap'}->{$subcollection}");
+    push (@subcollectionmap, "$subcollection\-\>" .
+          $self->{'index_mapping'}->{'subcollectionmap'}->{$subcollection});
     }
     $build_cfg->{'subcollectionmap'} = \@subcollectionmap if scalar (@subcollectionmap);
@@ -547 +547 @@
     my @languagemap = ();
     foreach $language (@{$self->{'index_mapping'}->{'languagemaporder'}}) {
-    push (@languagemap, "$language\-\>$self->{'index_mapping'}->{'languagemap'}->".
-          "{$language}");
+    push (@languagemap, "$language\-\>" .
+          $self->{'index_mapping'}->{'languagemap'}->{$language});
     }
     $build_cfg->{'languagemap'} = \@languagemap if scalar (@languagemap);