Changeset 28064

Timestamp:

2013-08-15T14:33:35+12:00 (11 years ago)

Author:

sjm84

Message:

Added functionality to use prevmetavalue when setting index metadata

File:

• main/trunk/greenstone2/perllib/cgiactions/metadataaction.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/cgiactions/metadataaction.pm

@@ -1065 +1065 @@
 {
     my $self = shift @_;
-    my ($collect_dir,$collect,$infodbtype,$docid,$metaname,$metapos,$metavalue,$metamode) = @_;
+    my ($collect_dir,$collect,$infodbtype,$docid,$metaname,$metapos,$metavalue,$metamode,$prevmetavalue) = @_;
     
     # To people who know $collect_tail please add some comments
@@ -1088 +1088 @@
     }
     $doc_rec->{$metaname}->[$metapos] = $metavalue;
+    }
+    elsif (defined $prevmetavalue) {
+        my $array = $doc_rec->{$metaname};
+        my $length = @$array;
+
+        my $found = 0;
+        for(my $i = 0; $i < $length; $i++){
+            if(defined $doc_rec->{$metaname}->[$i] && $doc_rec->{$metaname}->[$i] eq $prevmetavalue){
+                $doc_rec->{$metaname}->[$i] = $metavalue;
+                $found = 1;
+                last;               
+            }
+        }
+
+        if($found == 0){
+            $doc_rec->{$metaname} = [ $metavalue ];
+        }
     }
     elsif (defined $metamode && $metamode eq "override") {
@@ -1246 +1263 @@
     my $metavalue = $self->{'metavalue'};
     my $infodbtype = $self->{'infodbtype'};
-    my $metamode  = $self->{'metamode'};    
-
-    my $status = $self->set_index_metadata_entry($collect_dir,$collect,$infodbtype,$docid,$metaname,$metapos,$metavalue,$metamode);
+    my $metamode  = $self->{'metamode'};
+    my $prevmetavalue = $self->{'prevmetavalue'};
+
+    my $status = $self->set_index_metadata_entry($collect_dir,$collect,$infodbtype,$docid,$metaname,$metapos,$metavalue,$metamode,$prevmetavalue);
     
     if ($status != 0) {