Changeset 14374 for gsdl/trunk/perllib

Timestamp:

2007-08-15T13:02:53+12:00 (17 years ago)

Author:

mdewsnip

Message:

Fix to problem where the "indexmap" line would be lost from the build.cfg file when running buildcol.pl with "-mode infodb".

Location:

gsdl/trunk/perllib

Files:

• basebuilder.pm (modified) (1 diff)
• mgppbuilder.pm (modified) (2 diffs)

gsdl/trunk/perllib/basebuilder.pm

@@ -440 +440 @@
     }
     }
-    $build_cfg->{'indexmap'} = \@indexmap;
+    $build_cfg->{'indexmap'} = \@indexmap if scalar (@indexmap);
 
     my @subcollectionmap = ();

gsdl/trunk/perllib/mgppbuilder.pm

@@ -789 +789 @@
     my @indexfieldmap = ();
     my @indexfields = ();
-    
+    my @indexmap = ();
+
     if (scalar(keys %{$self->{'buildproc'}->{'indexfieldmap'}}) == 0) {
     # set the default mapping
@@ -822 +823 @@
     }       
 
+    if (defined $buildcfg->{'indexmap'}) {
+    foreach $field (@{$buildcfg->{'indexmap'}}) {
+        push (@indexmap, "$field");
+    }
+    }       
+
     $self->{'build_cfg'}->{'indexfieldmap'} = \@indexfieldmap;
     $self->{'build_cfg'}->{'indexfields'} = \@indexfields;
+    $self->{'build_cfg'}->{'indexmap'} = \@indexmap;
 }