installer/data/mysql/atomicupdate/bug_22512.perl

   1 $DBversion = 'XXX';    # will be replaced by the RM
   2 if ( CheckVersion($DBversion) ) {
   3
   4     if ( !column_exists( 'accountlines', 'status' ) ) {
   5         $dbh->do(
   6             qq{
   7             ALTER TABLE `accountlines`
   8             ADD
   9               `status` varchar(16) DEFAULT NULL
  10             AFTER
  11               `accounttype`
  12           }
  13         );
  14     }
  15
  16     SetVersion($DBversion);
  17     print "Upgrade to $DBversion done (Bug 22512 - Add status to accountlines)\n";
  18 }