Revision c7edb248
Von Sven Schöling vor mehr als 14 Jahren hinzugefügt
SL/User.pm | ||
---|---|---|
450 | 450 |
map({ $dbup_myconfig{$_} = $form->{$_}; } |
451 | 451 |
qw(dbname dbuser dbpasswd dbhost dbport dbconnect)); |
452 | 452 |
|
453 |
my $nls_file = $filename; |
|
454 |
$nls_file =~ s|.*/||; |
|
455 |
$nls_file =~ s|.pl$||; |
|
456 |
my $dbup_locale = Locale->new($main::language, $nls_file); |
|
453 |
my $dbup_locale = $::locale; |
|
457 | 454 |
|
458 | 455 |
my $result = eval($contents); |
459 | 456 |
|
Auch abrufbar als: Unified diff
Nur ein globales Locale-Objekt anlegen
Außerdem alle lokalen Locale-Objekte entfernt. Ist so noch nicht funktionabel.
Conflicts: