installer/data/mysql/db_revs/220600046.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number  => "15348",
   5     description => "Add new column aqorders.estimated_delivery_date",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9
  10         unless ( column_exists( 'aqorders', 'estimated_delivery_date' ) ) {
  11             $dbh->do(q{
  12                 ALTER TABLE aqorders
  13                   ADD estimated_delivery_date date DEFAULT NULL COMMENT 'Estimated delivery date'
  14                   AFTER suppliers_report
  15             });
  16         }
  17     },
  18 };