Changeset 692

Timestamp:

05/26/07 04:23:21 (6 years ago)

Author:

paul

Message:

Don't add duplicates for category and country.

Files:

• reconcilers/reconciler_mk2 (modified) (1 diff)

reconcilers/reconciler_mk2

@@ -1552 +1552 @@
                                                         next;
                                                 }
+                                        }
+
+                                        if (($field eq 'category') || ($field eq 'country')) {
+                                                # don't add duplicates
+                                                my $found;
+                                                foreach my $num (0 .. ($num_added-1)) {
+                                                        if (($newprog->{$field}->[$num]->[0] eq $val) and
+                                                                        ((not $newprog->{$field}->[$num]->[1] and ($lang eq "BLANK")) or
+                                                                         ($newprog->{$field}->[$num]->[1] eq $lang))) {
+                                                                $found = 1;
+                                                                last;
+                                                        }
+                                                }
+                                                next if ($found);
                                         }