Changeset 35645

Timestamp:

2021-10-20T12:40:55+13:00 (3 years ago)

Author:

davidb

Message:

Print statement tidyup

File:

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

main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm

@@ -1002 +1002 @@
           else
           {
-        print STDERR "**** Failed to open $rss_filename\n$!\n";
+          print STDERR "Error: Failed to open $rss_filename\n$!\n";
           }
         }
@@ -1043 +1043 @@
     my $self = shift (@_);
     my ($full_file) = @_;
-    
-    print STDERR "**** Adding metaxml file entry for full_file: $full_file\n";
+
+    if ($self->{'verbosity'} > 2) {
+    my $outhandle = $self->{'output_handle'};
+    print $outhandle "  Adding metaxml file entry for full_file: $full_file\n";
+    }
+    
     my $working_info = $self->{'output_info'};
     $working_info->set_meta_file_flag($full_file);