From 9cad023627440d354a0f43087e1b5c282605450b Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Wed, 18 Oct 2006 22:24:06 +0000
Subject: Added ui for 1 000.00 format

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@227 4979c152-3d1c-0410-bac9-87ea11338e46
---
 bin/admin.pl | 4 +++-
 bin/am.pl    | 4 +++-
 2 files changed, 6 insertions(+), 2 deletions(-)

(limited to 'bin')

diff --git a/bin/admin.pl b/bin/admin.pl
index 88ecc367..4b42ba94 100755
--- a/bin/admin.pl
+++ b/bin/admin.pl
@@ -383,7 +383,9 @@ sub form_header {
 		$dateformat .= ($item eq $myconfig->{dateformat}) ? "<option selected>$item</option>\n" : "<option>$item</option>\n";
 	}
 
-	foreach $item (qw(1,000.00 1000.00 1.000,00 1000,00 1'000.00)) {
+	my @formats = qw(1,000.00 1000.00 1.000,00 1000,00 1'000.00);
+	push @formats, '1 000.00';
+	foreach $item (@formats) {
 		$numberformat .= ($item eq $myconfig->{numberformat}) ? "<option selected>$item</option>\n" : "<option>$item</option>\n";
 	}
 
diff --git a/bin/am.pl b/bin/am.pl
index 4c5dcb5e..81827c5c 100755
--- a/bin/am.pl
+++ b/bin/am.pl
@@ -2035,7 +2035,9 @@ sub config {
     $dateformat .= ($item eq $myconfig{dateformat}) ? "<option selected>$item\n" : "<option>$item\n";
   }
 
-  foreach $item (qw(1,000.00 1000.00 1.000,00 1000,00 1'000.00)) {
+  my @formats = qw(1,000.00 1000.00 1.000,00 1000,00 1'000.00);
+  push @formats, '1 000.00';
+  foreach $item (@formats) {
     $numberformat .= ($item eq $myconfig{numberformat}) ? "<option selected>$item\n" : "<option>$item\n";
   }
 
-- 
cgit v1.2.3