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, 1 deletions

diff --git a/bin/oe.pl b/bin/oe.pl
index 7d87b297..7427014b 100755
--- a/bin/oe.pl
+++ b/bin/oe.pl
@@ -45,6 +45,7 @@ use LedgerSMB::IR;
 use LedgerSMB::IS;
 use LedgerSMB::PE;
 use LedgerSMB::Tax;
+use LedgerSMB::Locale;
 
 require "bin/arap.pl";
 require "bin/io.pl";
@@ -1944,7 +1945,10 @@ sub invoice {
   $form->{type} = "invoice";
  
   # locale messages
-  $locale = new Locale "$myconfig{countrycode}", "$script";
+  $locale = LedgerSMB::Locale->get_handle($myconfig{countrycode});
+  #$form->{charset} = $locale->encoding;
+  $form->{charset} = 'UTF-8';
+  $locale->encoding('UTF-8');
 
   require "bin/$form->{script}";