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

Timestamp:

2001-02-07T13:09:29+13:00 (23 years ago)

Author:

kjm18

Message:

minor changes

File:

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

trunk/gsdl/perllib/mgppbuilder.pm

@@ -135 +135 @@
     }
 
+    # 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 levels (Section, Paragraph) for indexing and compression
     $self->{'levels'} = {};
@@ -150 +162 @@
     
     # load all the plugins
-    $self->{'pluginfo'} = &plugin::load_plugins ($plugins);
+    $self->{'pluginfo'} = &plugin::load_plugins ($plugins, $verbosity, $outhandle);
     if (scalar(@{$self->{'pluginfo'}}) == 0) {
     print $outhandle "No plugins were loaded.\n";
@@ -163 +175 @@
     
     # load all the classifiers
-    $self->{'classifiers'} = &classify::load_classifiers ($classifiers, $outhandle);
+    $self->{'classifiers'} = &classify::load_classifiers ($classifiers, $build_dir, $outhandle);
 
     # load up any dontgdbm fields