Revision 76c486e3
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| sql/Pg-upgrade2/USTVA_abstraction.pl | ||
|---|---|---|
| 8 | 8 |
|
| 9 | 9 |
################### |
| 10 | 10 |
|
| 11 |
use strict; |
|
| 12 |
|
|
| 11 | 13 |
die("This script cannot be run from the command line.") unless ($main::form);
|
| 12 | 14 |
|
| 15 |
# import vars from caller |
|
| 16 |
our ($dbup_locale, $dbup_myconfig, $dbh, $iconv); |
|
| 17 |
|
|
| 13 | 18 |
sub mydberror {
|
| 14 | 19 |
my ($msg) = @_; |
| 15 | 20 |
die($dbup_locale->text("Database update error:") .
|
Auch abrufbar als: Unified diff
Und wieder ein Schwung strict.