installer/data/mysql/atomicupdate/Bug13795_Remove_unused_columns.perl

   1 $DBversion = 'XXX'; # will be replaced by the RM
   2 if( CheckVersion( $DBversion ) ) {
   3     if( column_exists('statistics', 'associatedborrower') ) {
   4         $dbh->do(q{ ALTER TABLE statistics DROP COLUMN associatedborrower });
   5     }
   6     if( column_exists('statistics', 'usercode') ) {
   7         $dbh->do(q{ ALTER TABLE statistics DROP COLUMN usercode });
   8     }
   9
  10     SetVersion($DBversion);
  11     print "Upgrade to $DBversion done (Bug 13795 - Delete unused fields from statistics table)\n";
  12 }