sql/Pg-upgrade2/globalprojectnumber_ap_ar_oe.pl

   1 # @tag: globalprojectnumber_ap_ar_oe
   2 # @description: Neue Spalte f&uuml;r eine globale Projektnummer in Einkaufs- und Verkaufsbelegen
   3 # @depends: release_2_4_1
   4 package SL::DBUpgrade2::globalprojectnumber_ap_ar_oe;
   5
   6 use strict;
   7 use utf8;
   8
   9 use parent qw(SL::DBUpgrade2::Base);
  10
  11 sub run {
  12   my ($self) = @_;
  13
  14   my @queries =
  15     ("ALTER TABLE ap ADD COLUMN globalproject_id integer;",
  16      "ALTER TABLE ap ADD FOREIGN KEY (globalproject_id) REFERENCES project (id);",
  17      "ALTER TABLE ar ADD COLUMN globalproject_id integer;",
  18      "ALTER TABLE ar ADD FOREIGN KEY (globalproject_id) REFERENCES project (id);",
  19      "ALTER TABLE oe ADD COLUMN globalproject_id integer;",
  20      "ALTER TABLE oe ADD FOREIGN KEY (globalproject_id) REFERENCES project (id);");
  21
  22   $self->db_query("ALTER TABLE project ADD PRIMARY KEY (id)", may_fail => 1);
  23   $self->db_query($_) for @queries;
  24
  25   return 1;
  26 }
  27
  28 1;