diff options
Diffstat (limited to 'LedgerSMB/DBObject/Customer.pm')
| -rw-r--r-- | LedgerSMB/DBObject/Customer.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/LedgerSMB/DBObject/Customer.pm b/LedgerSMB/DBObject/Customer.pm index 9a120f91..aa4404ce 100644 --- a/LedgerSMB/DBObject/Customer.pm +++ b/LedgerSMB/DBObject/Customer.pm @@ -9,7 +9,9 @@ sub save { # This saves both the entity and the credit account. -- CT $self->{entity_class} = 2; - $self->{id} = $self->exec_method(funcname => 'entity_credit_save'); + + $self->{entity_id} = $self->exec_method(funcname => 'entity_credit_save'); + $self->{dbh}->commit; } sub get_metadata { |