From ef3b11491182b85ec459c42fe4e51f6a7ca5262b Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Mon, 1 Dec 2008 02:15:53 +0000
Subject: Default country can now be set.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2422 4979c152-3d1c-0410-bac9-87ea11338e46
---
 bin/am.pl | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'bin')

diff --git a/bin/am.pl b/bin/am.pl
index f92e380e..9a08092d 100644
--- a/bin/am.pl
+++ b/bin/am.pl
@@ -1471,6 +1471,12 @@ sub defaults {
         'IC_income' => {name => 'IC_income', options => []},
         'IC_inventory' => {name => 'IC_inventory', options => []},
         'IC' => {name => 'IC', options => []},
+	'default_country' => {name   => 'default_country', 
+			     options => $form->{countries},
+			     default_values => [$form->{'default_country'}],
+			     text_attr => 'name',
+			     value_attr => 'id',
+		},
         );
     foreach $key ( keys %{ $form->{accno} } ) {
         foreach $accno ( sort keys %{ $form->{accno}{$key} } ) {
-- 
cgit v1.2.3