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/admin.pl b/bin/admin.pl
index deac8655..ce96cd6e 100755
--- a/bin/admin.pl
+++ b/bin/admin.pl
@@ -37,13 +37,16 @@
 $menufile = "menu.ini";
 
 use LedgerSMB::Form;
+use LedgerSMB::Locale;
 use LedgerSMB::User;
 
 
 $form = new Form;
 
-$locale = new Locale $language, "admin";
-$form->{charset} = $locale->{charset};
+$locale = LedgerSMB::Locale->get_handle($language);
+$locale->encoding('UTF-8');
+$form->{charset} = 'UTF-8';
+#$form->{charset} = $locale->encoding;
 
 eval { require DBI; };
 $form->error($locale->text('DBI not installed!')) if ($@);