diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-03-21 02:17:37 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-03-21 02:17:37 +0000 |
commit | 3a3f7e479ce9e1899065cf198002e42c5a4ea180 (patch) | |
tree | aefc238f8ebdd87e726945f3e2cb949dc61c0c3d /menu.pl | |
parent | 5370880b5cd132e25ed2b261734ccfdb3c085fc2 (diff) |
Fixing locale errors when checking password
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@969 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'menu.pl')
-rwxr-xr-x | menu.pl | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -69,6 +69,8 @@ $0 =~ tr/\\/\//; $pos = rindex $0, '/'; $script = substr($0, $pos + 1); +$locale = LedgerSMB::Locale->get_handle($myconfig{countrycode}) or + $form->error(__FILE__.':'.__LINE__.": Locale not loaded: $!\n"); # we use $script for the language module $form->{script} = $script; # strip .pl for translation files @@ -100,8 +102,6 @@ $SIG{__DIE__} = sub { $form->error(__FILE__.':'.__LINE__.': '.$_[0]) }; %myconfig = %{LedgerSMB::User->fetch_config($form->{login})}; # locale messages -$locale = LedgerSMB::Locale->get_handle($myconfig{countrycode}) or - $form->error(__FILE__.':'.__LINE__.": Locale not loaded: $!\n"); #$form->{charset} = $locale->encoding; $form->{charset} = 'UTF-8'; $locale->encoding('UTF-8'); |