sql/Pg-upgrade2/contacts_add_street_and_zipcode_and_city.pl

   1 # @tag: contacts_add_street_and_zipcode_and_city
   2 # @description: Spalten hinzuf&uuml;gen.
   3 # @depends: release_2_7_0
   4 package SL::DBUpgrade2::contacts_add_street_and_zipcode_and_city;
   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 contacts ADD COLUMN cp_street text;',
  16     'ALTER TABLE contacts ADD COLUMN cp_zipcode text;',
  17     'ALTER TABLE contacts ADD COLUMN cp_city text;',
  18   );
  19
  20   $self->db_query($_, may_fail => 1) for @queries;
  21
  22   return 1;
  23 }
  24
  25 1;