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

gsdl/trunk/perllib/classify/BaseClassifier.pm

@@ -298 +298 @@
 }
 
+sub oid_array_delete
+{
+    my $self = shift (@_);
+    my ($delete_oid,$field) = @_;
+
+    my $outhandle = $self->{'outhandle'};
+
+    my @filtered_list = ();
+    foreach my $existing_oid (@{$self->{$field}}) {
+    if ($existing_oid eq $delete_oid) {
+        print $outhandle "  Deleting $delete_oid\n";
+    }
+    else {
+        push(@filtered_list,$existing_oid);
+    }
+    }
+    $self->{$field} = \@filtered_list;
+}
+
+sub oid_hash_delete
+{
+    my $self = shift (@_);
+    my ($delete_oid,$field) = @_;
+
+    my $outhandle = $self->{'outhandle'};
+
+    print $outhandle "  Deleting $delete_oid\n";
+    delete $self->{$field}->{$delete_oid};
+}
+
 sub classify {
     my $self = shift (@_);
-    my ($doc_obj) = @_;
+    my ($doc_obj, $edit_mode) = @_;
 
     my $outhandle = $self->{'outhandle'};