Changeset 1799

Timestamp:

2000-12-18T09:20:23+13:00 (23 years ago)

Author:

sjboddie

Message:

fixed a little bug in the building code that caused an endless loop if the
same index was specified more than once in a collect.cfg file

File:

• trunk/gsdl/perllib/mgbuilder.pm (modified) (1 diff)

trunk/gsdl/perllib/mgbuilder.pm

@@ -108 +108 @@
     }
 
+    # make sure that the same index isn't specified more than once
+    my %tmphash = ();
+    my @tmparray = @{$self->{'collect_cfg'}->{'indexes'}};
+    $self->{'collect_cfg'}->{'indexes'} = [];
+    foreach my $i (@tmparray) {
+    if (!defined ($tmphash{$i})) {
+        push (@{$self->{'collect_cfg'}->{'indexes'}}, $i);
+        $tmphash{$i} = 1;
+    }
+    }
+
     # get the list of plugins for this collection
     my $plugins = [];