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, 9 insertions, 3 deletions

diff --git a/menu.pl b/menu.pl
index 2919b33f..6ac31ebf 100755
--- a/menu.pl
+++ b/menu.pl
@@ -60,6 +60,7 @@ $latex = 0;
 $| = 1;
 
 use LedgerSMB::Form;
+use LedgerSMB::Locale;
 use LedgerSMB::Session;
 
 eval { require "ledger-smb.conf"; };
@@ -86,7 +87,10 @@ use DBI qw(:sql_types);
 # check for user config file, could be missing or ???
 eval { require("$userspath/$form->{login}.conf"); };
 if ($@) {
-	$locale = new Locale "$language", "$script";
+	$locale = LedgerSMB::Locale->get_handle("fr_CA");
+	$form->{charset} = $locale->encoding;
+	$form->{charset} = 'UTF-8';
+	$locale->encoding('UTF-8');
 
 	$form->{callback} = "";
 	$msg1 = $locale->text('You are logged out!');
@@ -95,8 +99,10 @@ if ($@) {
 }
 
 # locale messages
-$locale = new Locale "$myconfig{countrycode}", "$script";
-$form->{charset} = $locale->{charset};
+$locale = LedgerSMB::Locale->get_handle($myconfig{countrycode});
+#$form->{charset} = $locale->encoding;
+$form->{charset} = 'UTF-8';
+$locale->encoding('UTF-8');
 
 # send warnings to browser
 $SIG{__WARN__} = sub { $form->info($_[0]) };