installer/data/mysql/atomicupdate/bug_30481.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => 30481,
   5     description => "DB schema sync for deleteditems",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9
  10         my $sql = "ALTER TABLE deleteditems MODIFY COLUMN `stocknumber` varchar(32) default NULL"; # removes comment in db
  11         $dbh->do($sql);
  12         if( unique_key_exists('deleteditems', 'deleteditemsstocknumberidx') ) {
  13             $sql = "ALTER TABLE deleteditems DROP KEY deleteditemsstocknumberidx";
  14             $dbh->do($sql);
  15         }
  16         if( !index_exists('deleteditems', 'delitemstocknumberidx') ) {
  17             $sql = "ALTER TABLE deleteditems ADD INDEX `delitemstocknumberidx` (`stocknumber`)";
  18             $dbh->do($sql);
  19         }
  20     },
  21 };