3 die("This script cannot be run from the command line.") unless ($main::form);
7 die($dbup_locale->text("Database update error:") .
8 "<br>$msg<br>" . $DBI::errstr);
12 my ($query, $allow_fail) = @_;
14 if (!$dbh->do($query)) {
15 mydberror($query) unless ($allow_fail);
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);
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");
39 return update_contacts_add_columns();