installer/data/mysql/atomicupdate/bug_24986.perl

   1 $DBversion = 'XXX'; # will be replaced by the RM
   2 if( CheckVersion( $DBversion ) ) {
   3
   4     for my $f (qw( streetnumber streettype zipcode mobile B_streetnumber B_streettype B_zipcode ) ) {
   5         $dbh->do(qq|
   6             ALTER TABLE borrowers MODIFY $f TINYTEXT DEFAULT NULL
   7         |);
   8         $dbh->do(qq|
   9             ALTER TABLE deletedborrowers MODIFY $f TINYTEXT DEFAULT NULL
  10         |);
  11     }
  12     for my $f ( qw( B_address altcontactfirstname altcontactsurname altcontactaddress1 altcontactaddress2 altcontactaddress3 altcontactzipcode altcontactphone ) ) {
  13         $dbh->do(qq|
  14             ALTER TABLE borrowers MODIFY $f MEDIUMTEXT DEFAULT NULL
  15         |);
  16         $dbh->do(qq|
  17             ALTER TABLE deletedborrowers MODIFY $f MEDIUMTEXT DEFAULT NULL
  18         |);
  19     }
  20
  21     SetVersion( $DBversion );
  22     print "Upgrade to $DBversion done (Bug 24986 - Switch borrowers address related fields to TINYTEXT or MEDIUMTEXT)\n";
  23 }