Changeset 12971

Timestamp:

2006-10-03T12:00:06+13:00 (18 years ago)

Author:

kjdon

Message:

removed some debug print statements

File:

• trunk/gsdl/perllib/mgbuilder.pm (modified) (2 diffs)

trunk/gsdl/perllib/mgbuilder.pm

@@ -56 +56 @@
     my $class = shift(@_);
 
-    my ($collection, $source_dir, $build_dir, $verbosity, 
-    $maxdocs, $debug, $keepold, $remove_empty_classifications, 
-    $outhandle, $no_text, $failhandle, $gli) = @_;
-
     my $self = new basebuilder (@_);
     $self = bless $self, $class;
@@ -491 +487 @@
     # so we generate them whatever, but don't advertise the fact
     #if ($self->{'casefold'}) {
-        print STDERR "casefolding\n";
-        system ("mg_stem_idx$exe -b 4096 -s1 -f \"$fullindexprefix\" $osextra");
+    system ("mg_stem_idx$exe -b 4096 -s1 -f \"$fullindexprefix\" $osextra");
     #}
     #if ($self->{'stem'}) {
-        print STDERR "stemming\n";
-        system ("mg_stem_idx$exe -b 4096 -s2 -f \"$fullindexprefix\" $osextra");
+    system ("mg_stem_idx$exe -b 4096 -s2 -f \"$fullindexprefix\" $osextra");
     #}
     #if ($self->{'casefold'} && $self->{'stem'}) {
-        print STDERR "casefold and stem\n";
-        system ("mg_stem_idx$exe -b 4096 -s3 -f \"$fullindexprefix\" $osextra");
+    system ("mg_stem_idx$exe -b 4096 -s3 -f \"$fullindexprefix\" $osextra");
     #}