Changeset 17283

Timestamp:

2008-09-15T12:26:51+12:00 (16 years ago)

Author:

kjdon

Message:

changed a couple of print statements to be more informative

File:

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

gsdl/trunk/perllib/IncrementalBuildUtils.pm

@@ -232 +232 @@
     if (defined($old_value) && $old_value =~ /[\w\d]+/)
       {
-        print STDERR "* removing '$old_value' from GDBM database\n" unless !$debug;
+        print STDERR "* removing '$key'='$old_value' from GDBM database for document $oid\n" unless !$debug;
         # i/   Call ??? to remove key-value from Lucene index
         #      Moved elsewhere
@@ -247 +247 @@
     if (defined($new_value) && $new_value =~ /[\w\d]+/)
       {
-        print STDERR "* adding '$new_value' to GDBM database\n" unless !$debug;
+        print STDERR "* adding '$key'='$new_value' to GDBM database for document $oid\n" unless !$debug;
         # i/   Call ??? to add key-value from Lucene index
         #      Moved elsewhere