Changeset 23562 for main

Timestamp:

2011-01-13T11:50:55+13:00 (13 years ago)

Author:

kjdon

Message:

changed a print statement

File:

• main/trunk/greenstone2/perllib/doc.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/doc.pm

@@ -415 +415 @@
 
     if ($use_hash_oid) {
-        my $hash_on_file = 1;
+        my $hash_on_file = 1; 
         if ($self->{'OIDtype'} eq "hash_on_ga_xml") {
         $hash_on_file = 0;
@@ -422 +422 @@
         # "hash" OID - feed file to hashfile.exe
         my $filename = $self->get_filename_for_hashing();
-
+        
         # -z: don't want to hash on the file if it is zero size
         if (defined($filename) && -e $filename && !-z $filename) {
@@ -863 +863 @@
     my $section_ptr = $self->_lookup_section($section);
     if (!defined $section_ptr) {
-    print STDERR "doc::delete_metadata couldn't find section ", $section, "\n";
+    print STDERR "doc::delete_metadata couldn't find section ", $section, "$field\n";
     return;
     }