sql/Pg-upgrade2/clients.pl

   1 # @tag: clients
   2 # @description: Mandanten
   3 # @depends: release_3_0_0
   4 package SL::DBUpgrade2::clients;
   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     qq|ALTER TABLE defaults ADD COLUMN company          TEXT|,
  16     qq|ALTER TABLE defaults ADD COLUMN address          TEXT|,
  17     qq|ALTER TABLE defaults ADD COLUMN taxnumber        TEXT|,
  18     qq|ALTER TABLE defaults ADD COLUMN co_ustid         TEXT|,
  19     qq|ALTER TABLE defaults ADD COLUMN duns             TEXT|,
  20     qq|ALTER TABLE defaults ADD COLUMN sepa_creditor_id TEXT|,
  21     qq|ALTER TABLE defaults ADD COLUMN templates        TEXT|,
  22   );
  23
  24   $self->db_query($_) for @queries;
  25
  26   return 1;
  27 }
  28
  29 1;