sql/Pg-upgrade/Pg-upgrade-2.2.0.19-2.2.0.20.pl

   1 #!/usr/bin/perl
   2
   3 die("This script cannot be run from the command line.") unless ($main::form);
   4
   5 sub mydberror {
   6   my ($msg) = @_;
   7   die($dbup_locale->text("Database update error:") .
   8       "<br>$msg<br>" . $DBI::errstr);
   9 }
  10
  11 sub mydoquery {
  12   my ($query, $allow_fail) = @_;
  13
  14   if (!$dbh->do($query)) {
  15     mydberror($query) unless ($allow_fail);
  16     $dbh->rollback();
  17     $dbh->begin_work();
  18   }
  19 }
  20
  21 sub update_contacts_add_columns {
  22   # The following columns might already be present due to an
  23   # existing CRM installation:
  24   mydoquery("ALTER TABLE contacts ADD COLUMN cp_fax text", 1);
  25
  26   # The following columns should not exist:
  27   mydoquery("ALTER TABLE contacts ADD COLUMN cp_mobile1 text");
  28   mydoquery("ALTER TABLE contacts ADD COLUMN cp_mobile2 text");
  29   mydoquery("ALTER TABLE contacts ADD COLUMN cp_satphone text");
  30   mydoquery("ALTER TABLE contacts ADD COLUMN cp_satfax text");
  31   mydoquery("ALTER TABLE contacts ADD COLUMN cp_project text");
  32   mydoquery("ALTER TABLE contacts ADD COLUMN cp_privatphone text");
  33   mydoquery("ALTER TABLE contacts ADD COLUMN cp_privatemail text");
  34   mydoquery("ALTER TABLE contacts ADD COLUMN cp_birthday text");
  35
  36   return 1;
  37 }
  38
  39 return update_contacts_add_columns();