Convert locales to Locale::Maketext::Lexicon

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

1 files changed, 5 insertions, 2 deletions

diff --git a/bin/login.pl b/bin/login.pl
index fbfdf431..c52c3b9e 100755
--- a/bin/login.pl
+++ b/bin/login.pl
@@ -39,6 +39,7 @@
 use DBI;
 use LedgerSMB::User;
 use LedgerSMB::Form;
+use LedgerSMB::Locale;
 
 ## will need this later when session_destroy will be used
 #use LedgerSMB::Session;
@@ -46,8 +47,10 @@ use LedgerSMB::Form;
 
 $form = new Form;
 
-$locale = new Locale $language, "login";
-$form->{charset} = $locale->{charset};
+$locale = LedgerSMB::Locale->get_handle($language);
+$locale->encoding('UTF-8');
+$form->{charset} = 'UTF-8';
+#$form->{charset} = $locale->encoding;
 
 # customization
 if (-f "bin/custom/$form->{script}") {