diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-06-25 20:29:31 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-06-25 20:29:31 +0000 |
| commit | 3210e17917634f23a3e582552d5210f7c13e7b63 (patch) | |
| tree | e9c32df5e93d05daa1059cefe397fea82786fc6c /LedgerSMB | |
| parent | 415b287555b84bee01d2acbf4e7c6434e1cdba7f (diff) | |
Correcting NULL entity_id errors saving vendor
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2173 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
| -rw-r--r-- | LedgerSMB/DBObject/Company.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/LedgerSMB/DBObject/Company.pm b/LedgerSMB/DBObject/Company.pm index c2676de2..1e4ca4d5 100644 --- a/LedgerSMB/DBObject/Company.pm +++ b/LedgerSMB/DBObject/Company.pm @@ -51,7 +51,9 @@ sub save { my $self = shift @_; $self->set_entity_class(); my ($ref) = $self->exec_method(funcname => 'company_save'); - $self->{id} = $ref->{company_save}; + $self->{entity_id} = (values %$ref)[0]; + $self->get; + $self->get_metadata; $self->{dbh}->commit; } |