diff options
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/admin.pl | 3 | ||||
| -rwxr-xr-x | bin/login.pl | 3 | ||||
| -rwxr-xr-x | bin/oe.pl | 3 |
3 files changed, 6 insertions, 3 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'); |