sql/Pg-upgrade2/contacts_add_main_contact.pl

   1 # @tag: contacts_add_main_contact
   2 # @description: Feld 'Hauptansprechpartner' für Kontakte
   3 # @depends: release_3_5_3
   4 package SL::DBUpgrade2::contacts_add_main_contact;
   5
   6 use strict;
   7 use utf8;
   8
   9 use parent qw(SL::DBUpgrade2::Base);
  10
  11 sub run {
  12   my ($self) = @_;
  13
  14   $self->db_query('ALTER TABLE contacts ADD COLUMN cp_main boolean DEFAULT false', may_fail => 1);
  15   $self->db_query("UPDATE contacts set cp_main='false'");
  16
  17   return 1;
  18 }
  19
  20 1;