Changeset 18455 for gsdl/trunk/perllib/classify.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.pm (modified) (1 diff)

gsdl/trunk/perllib/classify.pm

@@ -280 +280 @@
 # classify_doc lets each of the classifiers classify a document
 sub classify_doc {
-    my ($classifiers, $doc_obj) = @_;
+    my ($classifiers, $doc_obj, $edit_mode) = @_;
     
     foreach my $classobj (@$classifiers) {
     my $title = $classobj->{'title'};
-    $classobj->classify($doc_obj);
+    $classobj->classify($doc_obj,$edit_mode);
     }
 }