installer/data/mysql/db_revs/210600048.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "29341",
   5     description => "Remove foreign keys on pseudonymized_transactions",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9         for my $fk ( qw( pseudonymized_transactions_borrowers_ibfk_2 pseudonymized_transactions_borrowers_ibfk_3 pseudonymized_transactions_ibfk_1 ) ) {
  10             if ( foreign_key_exists( 'pseudonymized_transactions', $fk ) ) {
  11                 $dbh->do(qq{
  12                     ALTER TABLE pseudonymized_transactions DROP FOREIGN KEY $fk
  13                 });
  14             }
  15         }
  16     },
  17 }