Changeset 14666 for gsdl/trunk/perllib/mgppbuilder.pm

Timestamp:

2007-10-11T12:28:28+13:00 (15 years ago)

Author:

anna

Message:

Undoing commit of r14657.

File:

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

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;
 }