- Timestamp:
- 2010-07-06T13:00:40+12:00 (14 years ago)
- Location:
- main/trunk/greenstone2/perllib
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/mgbuilder.pm
r20418 r22352 77 77 push (@{$self->{'collect_cfg'}->{'indexes'}}, "dummy:text"); 78 78 } 79 79 # remove any ex. 80 my @orig_indexes = @{$self->{'collect_cfg'}->{'indexes'}}; 81 $self->{'collect_cfg'}->{'indexes'} = []; 82 foreach my $index (@orig_indexes) { 83 $index =~ s/([:,])ex\./$1/g; 84 push (@{$self->{'collect_cfg'}->{'indexes'}}, $index); 85 } 80 86 } 81 87 -
main/trunk/greenstone2/perllib/mgppbuilder.pm
r20418 r22352 101 101 if (defined $indexes) { 102 102 $self->{'collect_cfg'}->{'indexes'} = []; 103 push (@{$self->{'collect_cfg'}->{'indexes'}}, join(';', @$indexes).";"); 103 my $single_index = join(';', @$indexes).";"; 104 # remove any ex. from index spec 105 $single_index =~ s/^ex\.//; 106 $single_index =~ s/([,;])ex\./$1/g; 107 push (@{$self->{'collect_cfg'}->{'indexes'}}, $single_index); 104 108 } 105 109 }
Note:
See TracChangeset
for help on using the changeset viewer.