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, 10 insertions, 2 deletions

diff --git a/LedgerSMB/AM.pm b/LedgerSMB/AM.pm
index 3885829e..d2fdeca2 100644
--- a/LedgerSMB/AM.pm
+++ b/LedgerSMB/AM.pm
@@ -1815,7 +1815,7 @@ sub save_defaults {
         fxgain_accno_id fxloss_accno_id glnumber sinumber vinumber
         sonumber ponumber sqnumber rfqnumber partnumber employeenumber
         customernumber vendornumber projectnumber yearend curr
-        weightunit businessnumber)
+        weightunit businessnumber default_country)
       )
     {
         my $val = $form->{$_};
@@ -2416,7 +2416,15 @@ sub get_all_defaults {
     while ( ( $skey, $value ) = $sth->fetchrow_array() ) {
         $form->{$skey} = $value;
     }
-
+    $sth->finish;
+    $query = "select id, name from country order by name";
+    $sth = $dbh->prepare($query);
+    $sth->execute;
+    $form->{countries} = [];
+    while ($ref = $sth->fetchrow_hashref('NAME_lc')) {
+        push @{$form->{countries}}, $ref;
+    }
+    $sth->finish;
     $self->defaultaccounts( undef, $form );
     $dbh->commit;
 }