SF.net SVN: ledger-smb: [227] trunk/bin

[..hidden..]

Revision: 227
          http://svn.sourceforge.net/ledger-smb/?rev=227&view=rev
Author:   einhverfr
Date:     2006-10-18 15:24:06 -0700 (Wed, 18 Oct 2006)

Log Message:
-----------
Added ui for 1 000.00 format

Modified Paths:
--------------
    trunk/bin/admin.pl
    trunk/bin/am.pl

Modified: trunk/bin/admin.pl
===================================================================
--- trunk/bin/admin.pl	2006-10-18 22:19:23 UTC (rev 226)
+++ trunk/bin/admin.pl	2006-10-18 22:24:06 UTC (rev 227)
@@ -383,7 +383,9 @@
 		$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";
 	}
 

Modified: trunk/bin/am.pl
===================================================================
--- trunk/bin/am.pl	2006-10-18 22:19:23 UTC (rev 226)
+++ trunk/bin/am.pl	2006-10-18 22:24:06 UTC (rev 227)
@@ -2035,7 +2035,9 @@
     $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";
   }
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.