summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
Diffstat (limited to 'LedgerSMB')
-rw-r--r--LedgerSMB/DBObject/Customer.pm7
1 files changed, 5 insertions, 2 deletions
diff --git a/LedgerSMB/DBObject/Customer.pm b/LedgerSMB/DBObject/Customer.pm
index 08296d06..7bae0a9c 100644
--- a/LedgerSMB/DBObject/Customer.pm
+++ b/LedgerSMB/DBObject/Customer.pm
@@ -35,6 +35,8 @@ sub save_location {
$self->{entity_class} = $CUSTOMER_ENTITY_CLASS;
$self->{country_id} = $self->{country};
$self->exec_method(funcname => 'customer_location_save');
+
+ $self->{dbh}->commit;
}
sub save_contact {
@@ -45,7 +47,8 @@ sub save_bank_acct {
sub get {
my $self = shift @_;
- $self->merge(shift @{$self->exec_method(funcname => 'customer__retrieve')});
+ ($ref) = $self->exec_method(funcname => 'customer__retrieve');
+ $self->merge($ref);
$self->{name} = $self->{legal_name};
@@ -56,7 +59,7 @@ sub get {
funcname => 'company__list_contacts');
@{$self->{contacts}} = $self->exec_method(
- funcname => 'company__list_bank_accounts');
+ funcname => 'company__list_bank_account');
@{$self->{notes}} = $self->exec_method(
funcname => 'company__list_notes');