Changeset 21308 for main/trunk/greenstone2/perllib/plugins

Timestamp:

2009-12-09T13:21:38+13:00 (14 years ago)

Author:

kjdon

Message:

removeold renamed to remove_all, added remove_one for deleting a single doc

Location:

main/trunk/greenstone2/perllib/plugins

Files:

• ArchivesInfPlugin.pm (modified) (1 diff)
• BasePlugin.pm (modified) (1 diff)
• DirectoryPlugin.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/plugins/ArchivesInfPlugin.pm

@@ -147 +147 @@
 }
 
-sub removeold {
+sub remove_all {
     my $self = shift (@_);
     my ($pluginfo, $base_dir, $processor, $maxdocs) = @_;
 
 }
+
+sub remove_one {
+    my $self = shift (@_);
+    my ($file, $oids) = @_;
+   
+}
+
+
 # called at the end of each plugin pass
 sub end {

main/trunk/greenstone2/perllib/plugins/BasePlugin.pm

@@ -314 +314 @@
 }
 
-# In case a plugin (eg PharosImageIndexer) needs to do something extra
-sub removeold {
+# This is called once if removeold is set with import.pl. Most plugins will do
+# nothing but if a plugin does any stuff outside of creating doc obj, then 
+# it may need to clear something.
+sub remove_all {
     my $self = shift (@_);
     my ($pluginfo, $base_dir, $processor, $maxdocs) = @_;
+}
+
+# This is called per document for docs that have been deleted from the 
+# collection. Most plugins will do nothing
+# but if a plugin does any stuff outside of creating doc obj, then it may need
+# to clear something.
+sub remove_one {
+    my $self = shift (@_);
+    
+    my ($file, $oids) = @_;
 }
 

main/trunk/greenstone2/perllib/plugins/DirectoryPlugin.pm

@@ -141 +141 @@
 }
 
-sub removeold {
+sub remove_all {
     my $self = shift (@_);
     my ($pluginfo, $base_dir, $processor, $maxdocs) = @_;
 
 }
+
+sub remove_one {
+    my $self = shift (@_);
+    my ($file, $oids) = @_;
+    
+}
+
+
 # called at the end of each plugin pass
 sub end {
@@ -567 +575 @@
        
         my $tmpfile = Encode::encode_utf8($subfile); 
-    #print STDERR "subfile = $subfile, tmpfile = $tmpfile\n";
     # Next add metadata read in XML files (if it is supplied)
     if ($additionalmetadata == 1) {