installer/data/mysql/atomicupdate/bug_21336_followup.perl

   1 $DBversion = 'XXX';
   2 if( CheckVersion( $DBversion ) ) {
   3
   4     if ( column_exists( 'borrowers', 'flgAnonymized' ) ) {
   5         $dbh->do(q{
   6             ALTER TABLE borrowers
   7                 CHANGE `flgAnonymized` `anonymized` TINYINT(1) NOT NULL DEFAULT 0
   8         });
   9     }
  10
  11     if ( column_exists( 'deletedborrowers', 'flgAnonymized' ) ) {
  12         $dbh->do(q{
  13             ALTER TABLE deletedborrowers
  14                 CHANGE `flgAnonymized` `anonymized` TINYINT(1) NOT NULL DEFAULT 0
  15         });
  16     }
  17
  18     SetVersion( $DBversion );
  19     print "Upgrade to $DBversion done (Bug 21336 - (follow-up) Rename flgAnonymized column)\n";
  20 }