Changeset 16850

Timestamp:

2008-08-16T16:32:40+12:00 (16 years ago)

Author:

kjdon

Message:

changed a print statement to print to outhandle instead of STDERR

File:

• gsdl/trunk/perllib/plugins/MetadataXMLPlugin.pm (modified) (3 diffs)

gsdl/trunk/perllib/plugins/MetadataXMLPlugin.pm

@@ -175 +175 @@
     }
 
+    my $outhandle = $self->{'outhandle'};
+    
     print STDERR "\n<Processing n='$file' p='MetadataXMLPlugin'>\n" if ($gli);
-    print STDERR "MetadataXMLPlugin: processing $file\n" if ($self->{'verbosity'})> 1;
+    print $outhandle "MetadataXMLPlugin: processing $file\n" if ($self->{'verbosity'})> 1;
     # add the file to the block list so that it won't be processed in read, as we will do all we can with it here
     $block_hash->{'file_blocks'}->{$filename} = 1;
@@ -187 +189 @@
 
     if ($@) {
-    my $outhandle = $self->{'outhandle'};
     my $plugin_name = ref ($self);
     print $outhandle "$plugin_name failed to process $file ($@)\n";
@@ -194 +195 @@
     }
 
+    print $outhandle "end metadata read\n";
     return 1;