sql/Pg-upgrade2/custom_variables_delete_via_trigger.pl

   1 # @tag: custom_variables_delete_via_trigger
   2 # @description: Benutzerdefinierte Variablen werden nun via Trigger gelöscht.
   3 # @depends: custom_variable_configs_column_type_text custom_variables custom_variables_indices custom_variables_indices_2 custom_variables_parts_services_assemblies custom_variables_sub_module_not_null custom_variables_valid
   4
   5 package SL::DBUpgrade2::custom_variables_delete_via_trigger;
   6
   7 use utf8;
   8 use strict;
   9
  10 use parent qw(SL::DBUpgrade2::Base);
  11
  12 sub run {
  13   my ($self) = @_;
  14
  15   my @queries = (
  16     #Delete orphaned entries
  17     q|DELETE FROM custom_variables WHERE sub_module = 'orderitems'
  18                                    AND NOT EXISTS (SELECT id FROM orderitems WHERE orderitems.id = custom_variables.trans_id)|,
  19     q|DELETE FROM custom_variables WHERE sub_module = 'delivery_order_items'
  20                                    AND NOT EXISTS (SELECT id FROM delivery_order_items WHERE delivery_order_items.id = custom_variables.trans_id)|,
  21     q|DELETE FROM custom_variables WHERE sub_module = 'invoice'
  22                                    AND NOT EXISTS (SELECT id FROM invoice WHERE invoice.id = custom_variables.trans_id)|,
  23
  24     #Create trigger
  25     q|CREATE OR REPLACE FUNCTION orderitems_before_delete_trigger() RETURNS trigger AS $$
  26         BEGIN
  27           DELETE FROM custom_variables WHERE sub_module = 'orderitems' AND trans_id = OLD.id;
  28
  29           RETURN OLD;
  30         END;
  31       $$ LANGUAGE plpgsql|,
  32
  33     q|DROP TRIGGER IF EXISTS delete_orderitems_dependencies ON orderitems|,
  34
  35     q|CREATE TRIGGER delete_orderitems_dependencies
  36       BEFORE DELETE ON orderitems
  37       FOR EACH ROW EXECUTE PROCEDURE orderitems_before_delete_trigger()|,
  38
  39     q|CREATE OR REPLACE FUNCTION delivery_order_items_before_delete_trigger() RETURNS trigger AS $$
  40         BEGIN
  41           DELETE FROM custom_variables WHERE sub_module = 'delivery_order_items' AND trans_id = OLD.id;
  42
  43           RETURN OLD;
  44         END;
  45       $$ LANGUAGE plpgsql|,
  46
  47     q|DROP TRIGGER IF EXISTS delete_delivery_order_items_dependencies ON delivery_order_items|,
  48
  49     q|CREATE TRIGGER delete_delivery_order_items_dependencies
  50       BEFORE DELETE ON delivery_order_items
  51       FOR EACH ROW EXECUTE PROCEDURE delivery_order_items_before_delete_trigger()|,
  52
  53     q|CREATE OR REPLACE FUNCTION invoice_before_delete_trigger() RETURNS trigger AS $$
  54         BEGIN
  55           DELETE FROM custom_variables WHERE sub_module = 'invoice' AND trans_id = OLD.id;
  56
  57           RETURN OLD;
  58         END;
  59       $$ LANGUAGE plpgsql|,
  60
  61     q|DROP TRIGGER IF EXISTS delete_invoice_dependencies ON invoice|,
  62
  63     q|CREATE TRIGGER delete_invoice_dependencies
  64       BEFORE DELETE ON invoice
  65       FOR EACH ROW EXECUTE PROCEDURE invoice_before_delete_trigger()|
  66     );
  67
  68   $self->db_query($_) for @queries;
  69
  70   return 1;
  71 }
  72
  73 1;