installer/data/mysql/db_revs/210600014.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "28813",
   5     description => "Update delivery_note to failure_code in message_queue",
   6     up => sub {
   7         my ($args) = @_;
   8         my $dbh = $args->{dbh};
   9
  10         if ( column_exists('message_queue', 'delivery_note') ) {
  11             $dbh->do(q{
  12                 ALTER TABLE message_queue CHANGE COLUMN delivery_note failure_code MEDIUMTEXT
  13             });
  14         }
  15
  16         if( !column_exists( 'message_queue', 'failure_code' ) ) {
  17             $dbh->do(q{
  18                 ALTER TABLE message_queue ADD failure_code mediumtext AFTER content_type
  19             });
  20         }
  21     },
  22 }