sql/Pg-upgrade2/prices_delete_cascade.pl

   1 # @tag: prices_delete_cascade
   2 # @description: Preisgruppenpreise Löschen wenn Artikel gelöscht wird
   3 # @depends: release_3_4_1
   4
   5 # delete price entries if part is deleted
   6
   7 package SL::DBUpgrade2::prices_delete_cascade;
   8
   9 use utf8;
  10 use strict;
  11
  12 use parent qw(SL::DBUpgrade2::Base);
  13
  14 sub run {
  15   my ($self) = @_;
  16
  17   $self->drop_constraints(table => "prices");
  18
  19   my $query = <<SQL;
  20     ALTER TABLE prices
  21     ADD CONSTRAINT prices_pricegroup_id_fkey FOREIGN KEY (pricegroup_id) REFERENCES pricegroup(id) ON DELETE CASCADE,
  22     ADD CONSTRAINT prices_parts_id_fkey      FOREIGN KEY (parts_id)      REFERENCES parts(id)      ON DELETE CASCADE
  23 SQL
  24
  25   $self->db_query($query);
  26
  27   return 1;
  28 }
  29
  30 1;