Changeset 22038

Show
Ignore:
Timestamp:
05.05.2010 14:54:37 (9 years ago)
Author:
davidb
Message:

Tweaked print statment to be more consistent with other classifier print statements

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/classify/AZCompactList.pm

    r20429 r22038  
    217217 
    218218    if (($edit_mode eq "delete") || ($edit_mode eq "update")) { 
    219         print $outhandle "  Deleting $full_doc_OID\n"; 
     219        print $outhandle "  Deleting $full_doc_OID for AZCompactList\n"; 
    220220        delete $self->{'list'}->{$full_doc_OID}; 
    221221        delete $self->{'listmetavalue'}->{$full_doc_OID};