Revision ae1b5cba
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| SL/User.pm | ||
|---|---|---|
| 409 | 409 |
|
| 410 | 410 |
$dbh->begin_work(); |
| 411 | 411 |
|
| 412 |
my %dbup_myconfig = (); |
|
| 413 |
map({ $dbup_myconfig{$_} = $form->{$_}; }
|
|
| 414 |
qw(dbname dbuser dbpasswd dbhost dbport dbconnect)); |
|
| 415 |
|
|
| 416 |
my $nls_file = $filename; |
|
| 417 |
$nls_file =~ s|.*/||; |
|
| 418 |
$nls_file =~ s|.pl$||; |
|
| 419 |
my $dbup_locale = Locale->new($main::language, $nls_file); |
|
| 420 |
|
|
| 412 | 421 |
my $result = eval($contents); |
| 413 | 422 |
|
| 414 | 423 |
if (1 != $result) {
|
Auch abrufbar als: Unified diff
Die Übersetzungen für die Perl-Datenbankupgradescripte werden nun in jeweils einer eigenen Datei gespeichert. Zusätzlich werden direkt die beiden Variablen %dbup_myconfig und $dbup_locale zur Verfügung gestellt, damit nicht jedes Datenbankupgradescript sie selber anlegen muss.