Bug 287138: INSERT IGNORE is not ANSI SQL

Patch By Tomas Kopal <Tomas.Kopal@altap.cz> r=mkanat, a=justdave

1 files changed, 12 insertions, 7 deletions

diff --git a/editgroups.cgi b/editgroups.cgi
index c352908bb..88099b543 100755
--- a/editgroups.cgi
+++ b/editgroups.cgi
@@ -57,19 +57,24 @@ sub RederiveRegexp ($$)
     my $gid = shift;
     my $dbh = Bugzilla->dbh;
     my $sth = $dbh->prepare("SELECT userid, login_name FROM profiles");
-    my $sthadd = $dbh->prepare("INSERT IGNORE INTO user_group_map
-                               (user_id, group_id, grant_type, isbless)
-                               VALUES (?, ?, ?, 0)");
+    my $sthqry = $dbh->prepare("SELECT 1 FROM user_group_map
+                                 WHERE user_id = ? AND group_id = ?
+                                 AND grant_type = ? and isbless = 0");
+    my $sthadd = $dbh->prepare("INSERT INTO user_group_map
+                                 (user_id, group_id, grant_type, isbless)
+                                 VALUES (?, ?, ?, 0)");
     my $sthdel = $dbh->prepare("DELETE FROM user_group_map
-                                WHERE user_id = ? AND group_id = ?
-                                AND grant_type = ? and isbless = 0");
+                                 WHERE user_id = ? AND group_id = ?
+                                 AND grant_type = ? and isbless = 0");
     $sth->execute();
     while (my ($uid, $login) = $sth->fetchrow_array()) {
+        my $present = $dbh->selectrow_array($sthqry, undef,

+                                            $uid, $gid, GRANT_REGEXP);
         if (($regexp =~ /\S+/) && ($login =~ m/$regexp/i))
         {
-            $sthadd->execute($uid, $gid, GRANT_REGEXP);
+            $sthadd->execute($uid, $gid, GRANT_REGEXP) unless $present;
         } else {
-            $sthdel->execute($uid, $gid, GRANT_REGEXP);
+            $sthdel->execute($uid, $gid, GRANT_REGEXP) if $present;
         }
     }
 }