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

Timestamp:

2013-08-22T18:41:08+12:00 (11 years ago)

Author:

ak19

Message:

Better error checking after system commands in mgpbuilder too. Could not use bitwise flags for this, since mg needs to generate all the indexes, stemming, casefolding and casefolding and stemming, even when one of them (such as casefolding) is not turned on. And if ever one of them doesn't work, the original comment seemed to indicate that then none of it will work.

File:

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

main/trunk/greenstone2/perllib/mgppbuilder.pm

@@ -573 +573 @@
     # check that it worked - if not, don't carry on
     if ($weights_status !=0) {
-        print $outhandle "mgppbuilder::build_index - No Index: couldn't create weights file, error calling mggp_weights_build.\n";
+        print $outhandle "mgppbuilder::build_index - No Index: couldn't create weights file, error calling mgpp_weights_build.\n";
         print STDERR "<Warning name='NoIndex'/>\n</Stage>\n" if $self->{'gli'};
         $self->{'notbuilt'}->{$index}=1;
@@ -589 +589 @@
     # check that it worked - if not, don't carry on
     if ($invdict_status !=0) {
-        print $outhandle "mgppbuilder::build_index - No Index: couldn't create on-disk stemmed dictionary, error calling mggp_invf_dict.\n";
+        print $outhandle "mgppbuilder::build_index - No Index: couldn't create on-disk stemmed dictionary, error calling mgpp_invf_dict.\n";
         print STDERR "<Warning name='NoIndex'/>\n</Stage>\n" if $self->{'gli'};
         $self->{'notbuilt'}->{$index}=1;