installer/data/mysql/db_revs/220600066.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "31626",
   5     description => "Add letter id to the message queue table",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9         unless ( column_exists( 'message_queue', 'letter_id' ) ) {
  10             $dbh->do(q{
  11                 ALTER TABLE message_queue
  12                 ADD COLUMN `letter_id` int(11) DEFAULT NULL COMMENT 'Foreign key to the letters table' AFTER message_id,
  13                 ADD CONSTRAINT letter_fk FOREIGN KEY (letter_id) REFERENCES letter(id) ON DELETE SET NULL ON UPDATE CASCADE
  14             });
  15
  16             say $out "Added column 'message_queue.letter_id'";
  17         }
  18     },
  19 };