From e9c2de7f8b54ba0dc7b8aafba99a7de66d71ceef Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Thu, 13 Jun 2013 12:06:30 +0200 Subject: [PATCH] Mandanten-Spalten in Mandanten-DBs erzeugen, die nicht zum Umstellungszeitpunkt konfiguriert war --- sql/Pg-upgrade2/clients.pl | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 sql/Pg-upgrade2/clients.pl diff --git a/sql/Pg-upgrade2/clients.pl b/sql/Pg-upgrade2/clients.pl new file mode 100644 index 000000000..744909dcc --- /dev/null +++ b/sql/Pg-upgrade2/clients.pl @@ -0,0 +1,29 @@ +# @tag: clients +# @description: Mandanten +# @depends: release_3_0_0 +package SL::DBUpgrade2::clients; + +use strict; +use utf8; + +use parent qw(SL::DBUpgrade2::Base); + +sub run { + my ($self) = @_; + + my @queries = ( + qq|ALTER TABLE defaults ADD COLUMN company TEXT|, + qq|ALTER TABLE defaults ADD COLUMN address TEXT|, + qq|ALTER TABLE defaults ADD COLUMN taxnumber TEXT|, + qq|ALTER TABLE defaults ADD COLUMN co_ustid TEXT|, + qq|ALTER TABLE defaults ADD COLUMN duns TEXT|, + qq|ALTER TABLE defaults ADD COLUMN sepa_creditor_id TEXT|, + qq|ALTER TABLE defaults ADD COLUMN templates TEXT|, + ); + + $self->db_query($_) for @queries; + + return 1; +} + +1; -- 2.20.1