From 3a3f7e479ce9e1899065cf198002e42c5a4ea180 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Wed, 21 Mar 2007 02:17:37 +0000
Subject: 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
---
 menu.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/menu.pl b/menu.pl
index 9e409338..53e4629f 100755
--- a/menu.pl
+++ b/menu.pl
@@ -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');
-- 
cgit v1.2.3