Changeset 21316 for gs3-extensions/pharos-imageis/trunk/perllib/plugins/PharosImagePlugin.pm

Timestamp:

2009-12-09T15:39:40+13:00 (14 years ago)

Author:

kjdon

Message:

mods to remove_one

File:

• gs3-extensions/pharos-imageis/trunk/perllib/plugins/PharosImagePlugin.pm (modified) (1 diff)

gs3-extensions/pharos-imageis/trunk/perllib/plugins/PharosImagePlugin.pm

@@ -84 +84 @@
 sub remove_one {
     my $self = shift (@_);
-    my ($file, $oids) = @_;
-    $self->SUPER::remove_one(@_);
+    my ($file, $oids, $archivedir) = @_;
+    return undef if (!$self->can_process_this_file($file));
+    
     $self->PharosImageIndexer::remove_one(@_);
+    return $self->SUPER::remove_one(@_);
+    
+    
 }