installer/data/mysql/atomicupdate/bug_14224-add_new_issue_columns.perl

   1 $DBversion = 'XXX';
   2 if( CheckVersion( $DBversion ) ) {
   3     unless( column_exists( 'issues', 'note' ) ) {
   4         $dbh->do(q|ALTER TABLE issues ADD note mediumtext default NULL AFTER onsite_checkout|);
   5     }
   6     unless( column_exists( 'issues', 'notedate' ) ) {
   7         $dbh->do(q|ALTER TABLE issues ADD notedate datetime default NULL AFTER note|);
   8     }
   9     unless( column_exists( 'old_issues', 'note' ) ) {
  10         $dbh->do(q|ALTER TABLE old_issues ADD note mediumtext default NULL AFTER onsite_checkout|);
  11     }
  12     unless( column_exists( 'old_issues', 'notedate' ) ) {
  13         $dbh->do(q|ALTER TABLE old_issues ADD notedate datetime default NULL AFTER note|);
  14     }
  15
  16     SetVersion( $DBversion );
  17     print "Upgrade to $DBversion done (Bug 14224: Add column issues.note and issues.notedate)\n";
  18 }