Changeset 22352 for main/trunk/greenstone2/perllib/mgppbuilder.pm

Timestamp:

07/06/10 13:00:40 (11 years ago)

Author:

kjdon

Message:

remove ex. when generating index lists. Don't want any ex. in build.cfg. This fixes the problem where index list had eg ex.Photographer and collectionmeta in config file had .Photographer and then they didn't match up.

File:

• main/trunk/greenstone2/perllib/mgppbuilder.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/mgppbuilder.pm

@@ -101 +101 @@
     if (defined $indexes) {
     $self->{'collect_cfg'}->{'indexes'} = [];
-    push (@{$self->{'collect_cfg'}->{'indexes'}}, join(';', @$indexes).";");
+    my $single_index = join(';', @$indexes).";";
+    # remove any ex. from index spec
+    $single_index =~ s/^ex\.//;
+    $single_index =~ s/([,;])ex\./$1/g;
+    push (@{$self->{'collect_cfg'}->{'indexes'}}, $single_index);
     }
 }