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

put checks in before alter groupGroupings table

Browse source
This commit is contained in:
khenn 2010-05-17 09:59:51 -05:00
parent f852bd8866
commit d99e4cc415
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -62,11 +62,19 @@ sub addRejectNoticeSetting {
sub updateGroupGroupingsTable { sub updateGroupGroupingsTable {
my $session = shift; my $session = shift;
print "\tAdding primary key and indicies to groupGroupings table... " unless $quiet; print "\tAdding primary key and indicies to groupGroupings table... " unless $quiet;
$session->db->write("alter table groupGroupings add primary key (groupId,inGroup)"); my $sth = $session->db->read('show create table groupGroupings');
$session->db->write("alter table groupGroupings add index inGroup (inGroup)"); my ($field,$stmt) = $sth->array;
$sth->finish;
unless ($stmt =~ m/PRIMARY KEY/i) {
$session->db->write("alter table groupGroupings add primary key (groupId,inGroup)");
}
unless ($stmt =~ m/KEY `inGroup`/i) {
$session->db->write("alter table groupGroupings add index inGroup (inGroup)");
}
print "DONE!\n" unless $quiet; print "DONE!\n" unless $quiet;
} }
#---------------------------------------------------------------------------- #----------------------------------------------------------------------------
# Describe what our function does # Describe what our function does
sub fixRequestForApprovalScratch { sub fixRequestForApprovalScratch {