installer/data/mysql/atomicupdate/bug_22521.perl

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