Revision b4231065
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| sql/Pg-upgrade2/globalprojectnumber_ap_ar_oe.pl | ||
|---|---|---|
|
|
||
|
die("This script cannot be run from the command line.") unless ($main::form);
|
||
|
|
||
|
sub mydberror {
|
||
|
my ($msg) = @_;
|
||
|
die($dbup_locale->text("Database update error:") .
|
||
|
"<br>$msg<br>" . $DBI::errstr);
|
||
|
}
|
||
|
|
||
|
sub do_query {
|
||
|
my ($query, $may_fail) = @_;
|
||
|
|
||
Auch abrufbar als: Unified diff
Die Funktion mydberror muss auch existieren, wenn sie aufgerufen werden soll.