Default country can now be set.HEADmaster

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2422 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 6 insertions, 0 deletions

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} } ) {