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             UPDATE borrowers SET flgAnonymized = 0 WHERE flgAnonymized IS NULL
   7         });
   8         $dbh->do(q{
   9             ALTER TABLE borrowers
  10                 CHANGE `flgAnonymized` `anonymized` TINYINT(1) NOT NULL DEFAULT 0
  11         });
  12     }
  13
  14     if ( column_exists( 'deletedborrowers', 'flgAnonymized' ) ) {
  15         $dbh->do(q{
  16             UPDATE deletedborrowers SET flgAnonymized = 0 WHERE flgAnonymized IS NULL
  17         });
  18         $dbh->do(q{
  19             ALTER TABLE deletedborrowers
  20                 CHANGE `flgAnonymized` `anonymized` TINYINT(1) NOT NULL DEFAULT 0
  21         });
  22     }
  23
  24     SetVersion( $DBversion );
  25     print "Upgrade to $DBversion done (Bug 21336 - (follow-up) Rename flgAnonymized column)\n";
  26 }