summaryrefslogtreecommitdiff
path: root/LedgerSMB/DBObject
diff options
context:
space:
mode:
Diffstat (limited to 'LedgerSMB/DBObject')
-rw-r--r--LedgerSMB/DBObject/Company.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/LedgerSMB/DBObject/Company.pm b/LedgerSMB/DBObject/Company.pm
index 4d11d858..d8ea8039 100644
--- a/LedgerSMB/DBObject/Company.pm
+++ b/LedgerSMB/DBObject/Company.pm
@@ -11,6 +11,7 @@ retrieving customers and vendors.
package LedgerSMB::DBObject::Company;
+use LedgerSMB::Setting;
use base qw(LedgerSMB::DBObject);
use strict;
@@ -165,7 +166,10 @@ sub get_metadata {
@{$self->{contact_class_list}} =
$self->exec_method(funcname => 'entity_list_contact_class');
-
+ my $country_setting = LedgerSMB::Setting->new({base => $self, copy => 'base'});
+ $country_setting->{key} = 'default_country';
+ $country_setting->get;
+ $self->{default_country} = $country_setting->{value};
}
sub save_contact {