Changeset 21316

Show
Ignore:
Timestamp:
09.12.2009 15:39:40 (10 years ago)
Author:
kjdon
Message:

mods to remove_one

Location:
gs3-extensions/pharos-imageis/trunk/perllib/plugins
Files:
2 modified

Legend:

Unmodified
Added
Removed
  • gs3-extensions/pharos-imageis/trunk/perllib/plugins/PharosImageIndexer.pm

    r21305 r21316  
    9696    my $self = shift (@_); 
    9797     
    98     my ($file, $oids) = @_; 
     98    my ($file, $oids, $archivedir) = @_; 
    9999    print STDERR "in pharos remove_one, $file, $oids\n"; 
    100100    return if ($self->{'disable_pharos_imageis'}); 
     
    105105    } 
    106106 
    107     my $doc_id = @$oids[0]; 
     107    my $doc_id = @$oids[0]; # do we need to do all the ids?? 
    108108    return unless defined $doc_id; 
    109109    my $collection = &util::get_current_collection_name(); 
  • gs3-extensions/pharos-imageis/trunk/perllib/plugins/PharosImagePlugin.pm

    r21304 r21316  
    8484sub remove_one { 
    8585    my $self = shift (@_); 
    86     my ($file, $oids) = @_; 
    87     $self->SUPER::remove_one(@_); 
     86    my ($file, $oids, $archivedir) = @_; 
     87    return undef if (!$self->can_process_this_file($file)); 
     88     
    8889    $self->PharosImageIndexer::remove_one(@_); 
     90    return $self->SUPER::remove_one(@_); 
     91     
     92     
    8993} 
    9094