Changeset 18455 for gsdl/trunk/perllib/classify/Phind.pm

Timestamp:

2009-02-03T09:46:33+13:00 (15 years ago)

Author:

davidb

Message:

Addition of 'edit_mode' parameter to classify(). This can be either 'add' 'delete' or 'reindex' (should think about renaming the last one to something more appropriate, e.g. update).

File:

• gsdl/trunk/perllib/classify/Phind.pm (modified) (2 diffs)

gsdl/trunk/perllib/classify/Phind.pm

@@ -242 +242 @@
 sub classify {
     my $self = shift (@_);
-    my $doc_obj = shift @_;
+    my ($doc_obj,$edit_mode) = @_;
 
     my $verbosity = $self->{'verbosity'};
@@ -260 +260 @@
     my $phrlanguage = $self->{'language'};
     return if ($doclanguage && ($doclanguage !~ /$phrlanguage/i));
-    
+
+    if ($edit_mode eq "delete") {
+    # This classifier works quite differently to the others
+    # Probably doesn't support incremental building anyway
+    return;
+    }
+
     # record this file
     $self->{'total'} ++;