sql/Pg-upgrade2/auto_delete_reconciliation_links_on_acc_trans_deletion.pl

   1 # @tag: auto_delete_reconciliation_links_on_acc_trans_deletion
   2 # @description: Automatisch Einträge aus reconciliation_links entfernen, wenn referenzierte Einträge gelöscht werden
   3 # @depends: automatic_reconciliation
   4 package SL::DBUpgrade2::auto_delete_reconciliation_links_on_acc_trans_deletion;
   5
   6 use utf8;
   7 use strict;
   8
   9 use parent qw(SL::DBUpgrade2::Base);
  10
  11 sub run {
  12   my ($self) = @_;
  13
  14   $self->drop_constraints(table => $_) for qw(reconciliation_links);
  15
  16   my @queries = (
  17     q|ALTER TABLE reconciliation_links ADD CONSTRAINT reconciliation_links_acc_trans_id_fkey   FOREIGN KEY (acc_trans_id)        REFERENCES acc_trans         (acc_trans_id) ON DELETE CASCADE|,
  18     q|ALTER TABLE reconciliation_links ADD CONSTRAINT reconciliation_links_bank_transaction_id FOREIGN KEY (bank_transaction_id) REFERENCES bank_transactions (id)           ON DELETE CASCADE|,
  19   );
  20
  21   $self->db_query($_) for @queries;
  22
  23   return 1;
  24 }
  25
  26 1;