Ignore:
Timestamp:
12/09/09 15:39:40 (11 years ago)
Author:
kjdon
Message:

mods to remove_one

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

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
Note: See TracChangeset for help on using the changeset viewer.