Adding per-user language setting load

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1056 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 2 insertions, 0 deletions

diff --git a/menu.pl b/menu.pl
index 98e7e2f2..c606e551 100755
--- a/menu.pl
+++ b/menu.pl
@@ -100,6 +100,8 @@ $SIG{__DIE__} = sub { $form->error(__FILE__.':'.__LINE__.': '.$_[0]) };
 # grab user config. This is ugly and unecessary if/when 
 # we get rid of myconfig and use User as a real object 
 %myconfig = %{LedgerSMB::User->fetch_config($form->{login})};
+$locale = LedgerSMB::Locale->get_handle($myconfig{countrycode}) or
+	$form->error(__FILE__.':'.__LINE__.": Locale not loaded: $!\n");
 
 # locale messages
 #$form->{charset} = $locale->encoding;