* Strip out duplicates from usertags

[debbugs.git] / Debbugs / User.pm

diff --git a/Debbugs/User.pm b/Debbugs/User.pm
index 0a7471376d35a085107830beeccf3d766cf5ad2c..8f97659d910defef2a717edc89204a737218c6d9 100644 (file)
--- a/Debbugs/User.pm
+++ b/Debbugs/User.pm
@@ -178,9 +178,13 @@ sub get_user {
                         if defined $stanza{"Cat${i}Default"};
                     if (defined $stanza{"Cat${i}Order"}) {
                         my @temp = split /\s*,\s*/, $stanza{"Cat${i}Order"};
+                        my %temp;
                         my $min = min(@temp);
-                        @temp = map {$_-$min} @temp;
-                        $c{ord} = [@temp];
+                        # Order to 0 minimum; strip duplicates
+                        $c{ord} = [map {$temp{$_}++;
+                                        $temp{$_}>1?():($_-$min);
+                                   } @temp
+                                  ];
                    }
                     my @pri; my @ttl;
                     for my $l (split /\n/, $stanza{"Cat${i}Options"}) {