Changeset 21315

Show
Ignore:
Timestamp:
09.12.2009 15:33:35 (10 years ago)
Author:
kjdon
Message:

remove_one now returns a value

Location:
main/trunk/greenstone2/perllib/plugins
Files:
3 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/plugins/ArchivesInfPlugin.pm

    r21308 r21315  
    155155sub remove_one { 
    156156    my $self = shift (@_); 
    157     my ($file, $oids) = @_; 
    158     
     157    my ($file, $oids, $archivedir) = @_; 
     158    return undef; # only called during import at this stage, this will never be processing a file 
     159     
    159160} 
    160161 
  • main/trunk/greenstone2/perllib/plugins/BasePlugin.pm

    r21308 r21315  
    329329    my $self = shift (@_); 
    330330     
    331     my ($file, $oids) = @_; 
     331    my ($file, $oids, $archivedir) = @_; 
     332    return 0 if $self->can_process_this_file($file); 
     333    return undef; 
    332334} 
    333335 
  • main/trunk/greenstone2/perllib/plugins/DirectoryPlugin.pm

    r21308 r21315  
    147147} 
    148148 
     149 
    149150sub remove_one { 
    150151    my $self = shift (@_); 
    151     my ($file, $oids) = @_; 
    152      
     152    my ($file, $oids, $archivedir) = @_; 
     153    return undef; # this will never be called for directories (will it??) 
     154 
    153155} 
    154156