diff options
| -rwxr-xr-x | bin/admin.pl | 3 | ||||
| -rwxr-xr-x | bin/login.pl | 3 | ||||
| -rwxr-xr-x | bin/oe.pl | 3 | ||||
| -rwxr-xr-x | menu.pl | 6 |
4 files changed, 10 insertions, 5 deletions
diff --git a/bin/admin.pl b/bin/admin.pl index 5229d7e6..9642fc62 100755 --- a/bin/admin.pl +++ b/bin/admin.pl @@ -43,7 +43,8 @@ use LedgerSMB::User; $form = new Form; -$locale = LedgerSMB::Locale->get_handle(${LedgerSMB::Sysconfig::language}); +$locale = LedgerSMB::Locale->get_handle(${LedgerSMB::Sysconfig::language}) or + $form->error("Locale not loaded: $!\n"); $locale->encoding('UTF-8'); $form->{charset} = 'UTF-8'; #$form->{charset} = $locale->encoding; diff --git a/bin/login.pl b/bin/login.pl index a3a70b9b..2ef1c8aa 100755 --- a/bin/login.pl +++ b/bin/login.pl @@ -47,7 +47,8 @@ use LedgerSMB::Locale; $form = new Form; -$locale = LedgerSMB::Locale->get_handle(${LedgerSMB::Sysconfig::language}); +$locale = LedgerSMB::Locale->get_handle(${LedgerSMB::Sysconfig::language}) or + $form->error("Locale not loaded: $!\n"); $locale->encoding('UTF-8'); $form->{charset} = 'UTF-8'; #$form->{charset} = $locale->encoding; @@ -1945,7 +1945,8 @@ sub invoice { $form->{type} = "invoice"; # locale messages - $locale = LedgerSMB::Locale->get_handle($myconfig{countrycode}); + $locale = LedgerSMB::Locale->get_handle($myconfig{countrycode}) or + $form->error("Locale not loaded: $!\n"); #$form->{charset} = $locale->encoding; $form->{charset} = 'UTF-8'; $locale->encoding('UTF-8'); @@ -87,7 +87,8 @@ use DBI qw(:sql_types); # check for user config file, could be missing or ??? eval { require("$userspath/$form->{login}.conf"); }; if ($@) { - $locale = LedgerSMB::Locale->get_handle($myconfig{countrycode}); + $locale = LedgerSMB::Locale->get_handle($myconfig{countrycode}) or + $form->error("Locale not loaded: $!\n"); $form->{charset} = $locale->encoding; $form->{charset} = 'UTF-8'; $locale->encoding('UTF-8'); @@ -99,7 +100,8 @@ if ($@) { } # locale messages -$locale = LedgerSMB::Locale->get_handle($myconfig{countrycode}); +$locale = LedgerSMB::Locale->get_handle($myconfig{countrycode}) or + $form->error("Locale not loaded: $!\n"); #$form->{charset} = $locale->encoding; $form->{charset} = 'UTF-8'; $locale->encoding('UTF-8'); |