diff options
| -rwxr-xr-x | bin/admin.pl | 4 | ||||
| -rwxr-xr-x | bin/am.pl | 4 |
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"; } @@ -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"; } |