Changeset 21308 for main/trunk/greenstone2/perllib/plugins/DirectoryPlugin.pm

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

File:

• main/trunk/greenstone2/perllib/plugins/DirectoryPlugin.pm (modified) (2 diffs)

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) {