@@ -, +, @@ altering it --- installer/data/mysql/atomicupdate/14187.perl | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) --- a/installer/data/mysql/atomicupdate/14187.perl +++ a/installer/data/mysql/atomicupdate/14187.perl @@ -1,8 +1,15 @@ -$DBversion = 'XXX'; # will be replaced by the RM -if( CheckVersion( $DBversion ) ) { - $dbh->do("ALTER TABLE branchtransfers ADD COLUMN branchtransfer_id int(12) NOT NULL auto_increment FIRST, ADD CONSTRAINT PRIMARY KEY (branchtransfer_id);"); +$DBversion = '16.12.00.XXX'; +if ( CheckVersion($DBversion) ) { + unless (column_exists( 'branchtransfers', 'branchtransfer_id' ) + and index_exists( 'branchtransfers', 'PRIMARY' ) ) + { + $dbh->do( + "ALTER TABLE branchtransfers + ADD COLUMN branchtransfer_id int(12) NOT NULL auto_increment FIRST, ADD CONSTRAINT PRIMARY KEY (branchtransfer_id);" + ); + } # Always end with this (adjust the bug info) - SetVersion( $DBversion ); - print "Upgrade to $DBversion done (Bug 14187 - branchtransfer needs a primary key (id) for DBIx and common sense.)\n"; + SetVersion($DBversion); + print "Upgrade to $DBversion done (Bug 14187: branchtransfer needs a primary key (id) for DBIx and common sense.)\n"; } --