installer/data/mysql/atomicupdate/bug_21683_remove_column_accountno.perl

   1 $DBversion = 'XXX';  # will be replaced by the RM
   2 if( CheckVersion( $DBversion ) ) {
   3
   4     if( column_exists( 'accountlines', 'accountno' ) ) {
   5         $dbh->do( "ALTER TABLE accountlines DROP COLUMN accountno" );
   6     }
   7
   8     if( column_exists( 'statistics', 'proccode' ) ) {
   9         $dbh->do( "ALTER TABLE statistics DROP COLUMN proccode" );
  10     }
  11
  12     # Always end with this (adjust the bug info)
  13     SetVersion( $DBversion );
  14     print "Upgrade to $DBversion done (Bug 21683 - Remove accountlines.accountno and statistics.proccode fields)\n";
  15 }