Changeset 20653

Timestamp:

2009-09-21T13:41:38+12:00 (15 years ago)

Author:

kjdon

Message:

if we are updating the classifier ie a document is being reclassified, then we need to delete the old stored metadata values, otherwise the doc will appear twice

File:

• gsdl/trunk/perllib/classify/List.pm (modified) (1 diff)

gsdl/trunk/perllib/classify/List.pm

@@ -336 +336 @@
     # Take care not to do a metadata group more than once
     unless ($metadata_groups_done{$metadata_group}) {
+        if ($edit_mode eq "update") {
+        # if we are updating, we delete all the old values before 
+        # adding the new ones, otherwise, the section will end up in 
+        # the classifier twice.
+        delete $self->{$metadata_group . ".list"}->{$section_OID};
+        }
         foreach my $metadata_element (split(/\;|,/, $metadata_group)) {     
         my $real_metadata_element = $self->strip_ex_from_metadata($metadata_element);