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