installer/data/mysql/db_revs/211200046.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "22785",
   5     description => "Add chosen column to import_record_matches",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9         unless( column_exists('import_record_matches','chosen') ){
  10             $dbh->do(q{
  11                 ALTER TABLE import_record_matches ADD COLUMN chosen TINYINT null DEFAULT null AFTER score
  12             });
  13             say $out "chosen column added to import_record_matches";
  14         } else {
  15             say $out "chosen column exists. Update has already been run";
  16         }
  17     },
  18 };