installer/data/mysql/atomicupdate/bug_28490-recreate_relationship_columns.perl

   1 $DBversion = 'XXX'; # will be replaced by the RM
   2 if( CheckVersion( $DBversion ) ) {
   3     if( !column_exists( 'borrower_modifications', 'relationship' ) ) {
   4       $dbh->do(q{
   5           ALTER TABLE borrower_modifications ADD COLUMN `relationship` varchar(100) COLLATE utf8mb4_unicode_ci DEFAULT NULL AFTER `borrowernotes`
   6       });
   7     }
   8
   9     if( !column_exists( 'borrowers', 'relationship' ) ) {
  10       $dbh->do(q{
  11           ALTER TABLE borrowers ADD COLUMN `relationship` varchar(100) COLLATE utf8mb4_unicode_ci DEFAULT NULL COMMENT 'used for children to include the relationship to their guarantor' AFTER `borrowernotes`
  12       });
  13     }
  14
  15     if( !column_exists( 'deletedborrowers', 'relationship' ) ) {
  16       $dbh->do(q{
  17           ALTER TABLE deletedborrowers ADD COLUMN `relationship` varchar(100) COLLATE utf8mb4_unicode_ci DEFAULT NULL COMMENT 'used for children to include the relationship to their guarantor' AFTER `borrowernotes`
  18       });
  19     }
  20
  21     NewVersion( $DBversion, 28490, "Bring back accidentally deleted relationship columns");
  22 }