installer/data/mysql/atomicupdate/bug_21065.perl

   1 $DBversion = 'XXX';  # will be replaced by the RM
   2 if( CheckVersion( $DBversion ) ) {
   3
   4     $dbh->do(q|
   5         ALTER TABLE accountlines DROP FOREIGN KEY accountlines_ibfk_1;
   6     |);
   7     $dbh->do(q|
   8         ALTER TABLE accountlines CHANGE COLUMN borrowernumber borrowernumber INT(11) DEFAULT NULL;
   9     |);
  10     $dbh->do(q|
  11         ALTER TABLE accountlines ADD CONSTRAINT accountlines_ibfk_1 FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE SET NULL ON UPDATE CASCADE;
  12     |);
  13
  14     SetVersion( $DBversion );
  15     print "Upgrade to $DBversion done (Bug 21065 - Set ON DELETE SET NULL on accountlines.borrowernumber)\n";
  16 }