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

gsdl/trunk/perllib/classify/HFileHierarchy.pm

@@ -197 +197 @@
 {
     my $self = shift (@_);
-    my ($doc_obj,$sortmeta,$metavalues) = @_;
+    my ($doc_obj,$edit_mode,$sortmeta,$metavalues) = @_;
+
+    my $outhandle = $self->{'outhandle'};
 
     my $doc_OID = $doc_obj->get_OID();
@@ -204 +206 @@
     if ((defined $self->{'descriptorlist'}->{$metaelement}) &&
         (defined $self->{'locatorlist'}->{$self->{'descriptorlist'}->{$metaelement}})) {
-        push (@{$self->{'locatorlist'}->{$self->{'descriptorlist'}->{$metaelement}}->{'contents'}}, 
-          [$doc_OID, $sortmeta]);
-        my $localid = $self->{'descriptorlist'}->{$metaelement};
-        my $classid = $self->get_number();
-
-        $doc_obj->add_metadata($doc_obj->get_top_section(), "memberof", "CL$classid.$localid");
+
+        if ($edit_mode eq "delete") {
+        # find it, and remove it
+        my $existing_list = $self->{'locatorlist'}->{$self->{'descriptorlist'}->{$metaelement}}->{'contents'};
+        
+        my $filtered_list = [];
+        foreach my $existing_oid_pair (@$existing_list) {
+            if ($existing_oid_pair->[0] eq $doc_OID) {
+            print $outhandle "  Deleting $doc_OID for $metaelement in hierarchy\n";
+            }
+            else {
+            push(@$filtered_list,$existing_oid_pair);
+            }
+        }
+        $self->{'locatorlist'}->{$self->{'descriptorlist'}->{$metaelement}}->{'contents'} = $filtered_list;
+        }
+        else {
+        push (@{$self->{'locatorlist'}->{$self->{'descriptorlist'}->{$metaelement}}->{'contents'}}, 
+              [$doc_OID, $sortmeta]);
+        my $localid = $self->{'descriptorlist'}->{$metaelement};
+        my $classid = $self->get_number();
+
+        $doc_obj->add_metadata($doc_obj->get_top_section(), "memberof", "CL$classid.$localid");
+        }
     }
     }