quarantine: userlists: sort result

[pmg-api.git] / src / PMG / Quarantine.pm

diff --git a/src/PMG/Quarantine.pm b/src/PMG/Quarantine.pm
index e19e96f9a357f1729b06520d4d3d26ad61c09fef..d06a88d6d366274023017c3b2c0351c81df3ed5b 100644 (file)
--- a/src/PMG/Quarantine.pm
+++ b/src/PMG/Quarantine.pm
@@ -59,8 +59,8 @@ sub add_to_blackwhite {
            }
        }
 
-       my $wlist = $dbh->quote(encode('UTF-8', join (',', keys %{$list->{WL}})) || '');
-       my $blist = $dbh->quote(encode('UTF-8', join (',', keys %{$list->{BL}})) || '');
+       my $wlist = $dbh->quote(encode('UTF-8', join (',', sort keys %{$list->{WL}})) || '');
+       my $blist = $dbh->quote(encode('UTF-8', join (',', sort keys %{$list->{BL}})) || '');
 
        if (!$delete) {
            my $maxlen = 200000;
@@ -81,7 +81,7 @@ sub add_to_blackwhite {
        $dbh->do($queries);
     }
 
-    my $values =  [ keys %{$list->{$name}} ];
+    my $values =  [ sort keys %{$list->{$name}} ];
 
     return $values;
 }