Changeset 23165

Timestamp:

2010-10-19T11:35:58+13:00 (14 years ago)

Author:

kjdon

Message:

removed a couple of print statements

File:

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

main/trunk/greenstone2/perllib/basebuildproc.pm

@@ -393 +393 @@
     my $doctype = $doc_obj->get_doc_type();
     return if ($doctype ne "indexed_doc" && $doctype ne "info_doc");
-    print STDERR "infodbedit, mode=$edit_mode, ".$doc_obj->get_OID()."\n";
+    
     my $archivedir = "";
     if (defined $filename)
@@ -439 +439 @@
     my $num_reconstructed_bytes = $doc_obj->get_metadata_element ($doc_obj->get_top_section (), "total_numbytes");
     if (defined $num_reconstructed_bytes) {
-        print STDERR "adding numbytes $num_reconstructed_bytes\n";
         $self->{'num_bytes'} += $num_reconstructed_bytes;
     }