sql/Pg-upgrade2/contacts_add_cp_position.pl

   1 # @tag: contacts_add_cp_position
   2 # @description: Feld 'Funktion/Position' zu Kontakten
   3 # @depends: release_3_0_0
   4 # @charset: utf-8
   5
   6 package contacts_add_cp_position;
   7 use strict;
   8
   9 die 'This script cannot be run from the command line.' if !$::form;
  10
  11 my $query = 'ALTER TABLE contacts ADD COLUMN cp_position VARCHAR(75)';
  12
  13 if (!$dbh->do($query)) {
  14   $dbh->rollback;
  15   $dbh->begin_work;
  16 }
  17
  18 1;