Display error instead of dying horribly when locale not found

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

1 files changed, 2 insertions, 1 deletions

diff --git a/bin/oe.pl b/bin/oe.pl
index a97088a7..5e9606b8 100755
--- a/bin/oe.pl
+++ b/bin/oe.pl
@@ -1945,7 +1945,8 @@ sub invoice {
   $form->{type} = "invoice";
  
   # locale messages
-  $locale = LedgerSMB::Locale->get_handle($myconfig{countrycode});
+  $locale = LedgerSMB::Locale->get_handle($myconfig{countrycode}) or
+  	$form->error("Locale not loaded: $!\n");
   #$form->{charset} = $locale->encoding;
   $form->{charset} = 'UTF-8';
   $locale->encoding('UTF-8');