oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove duplicates before adding a primary key to groupGroupings.

Browse source 
Fixes #11723.
This commit is contained in:
Scott Walters 2010-07-15 17:48:00 -04:00
parent 18da6a8be7
commit c95ef7a656
1 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
docs/upgrades/upgrade_7.9.4-7.9.5.pl
View file

@ -76,6 +76,19 @@ sub updateGroupGroupingsTable {
my ($field,$stmt) = $sth->array;
$sth->finish;
unless ($stmt =~ m/PRIMARY KEY/i) {
# clean up duplicates that would prevent applying a primary key
my $rs = $session->db->read(q{
select count(*) as num, groupId, inGroup
from groupGroupings
group by groupId, inGroup
having num > 1
});
my $dupSth = $session->db->prepare("delete from groupGroupings where groupId = ? and inGroup = ? limit ?");
while (my ($num, $groupId, $inGroup) = $rs->array) {
$dupSth->execute([$groupId, $inGroup, $num-1]);
}
$dupSth->finish;
# add the primary key
$session->db->write("alter table groupGroupings add primary key (groupId,inGroup)");
}
unless ($stmt =~ m/KEY `inGroup`/i) {