Changeset 16850

Show
Ignore:
Timestamp:
16.08.2008 16:32:40 (11 years ago)
Author:
kjdon
Message:

changed a print statement to print to outhandle instead of STDERR

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugins/MetadataXMLPlugin.pm

    r16386 r16850  
    175175    } 
    176176 
     177    my $outhandle = $self->{'outhandle'}; 
     178     
    177179    print STDERR "\n<Processing n='$file' p='MetadataXMLPlugin'>\n" if ($gli); 
    178     print STDERR "MetadataXMLPlugin: processing $file\n" if ($self->{'verbosity'})> 1; 
     180    print $outhandle "MetadataXMLPlugin: processing $file\n" if ($self->{'verbosity'})> 1; 
    179181    # 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 
    180182    $block_hash->{'file_blocks'}->{$filename} = 1; 
     
    187189 
    188190    if ($@) { 
    189     my $outhandle = $self->{'outhandle'}; 
    190191    my $plugin_name = ref ($self); 
    191192    print $outhandle "$plugin_name failed to process $file ($@)\n"; 
     
    194195    } 
    195196 
     197    print $outhandle "end metadata read\n"; 
    196198    return 1; 
    197199