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/admin.pl b/bin/admin.pl
index 5229d7e6..9642fc62 100755
--- a/bin/admin.pl
+++ b/bin/admin.pl
@@ -43,7 +43,8 @@ use LedgerSMB::User;
 
 $form = new Form;
 
-$locale = LedgerSMB::Locale->get_handle(${LedgerSMB::Sysconfig::language});
+$locale = LedgerSMB::Locale->get_handle(${LedgerSMB::Sysconfig::language}) or
+	$form->error("Locale not loaded: $!\n");
 $locale->encoding('UTF-8');
 $form->{charset} = 'UTF-8';
 #$form->{charset} = $locale->encoding;