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_handle_department {
22 $dbh->selectrow_array("SELECT cp_abteilung FROM contacts LIMIT 1");
26 mydoquery("ALTER TABLE contacts ADD COLUMN cp_abteilung text");
27 mydoquery("UPDATE contacts SET cp_abteilung = cp_department");
30 mydoquery("ALTER TABLE contacts DROP COLUMN cp_department", 1);
35 return update_contacts_handle_department();