summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-10-18 22:24:06 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-10-18 22:24:06 +0000
commit9cad023627440d354a0f43087e1b5c282605450b (patch)
tree2a8943464a40389b387ec9048ac6fdf326933629 /bin
parent52467aa22c2b458e599fbf3e5d2a2662342364b6 (diff)
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
Diffstat (limited to 'bin')
-rwxr-xr-xbin/admin.pl4
-rwxr-xr-xbin/am.pl4
2 files changed, 6 insertions, 2 deletions
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";
}