From 3210e17917634f23a3e582552d5210f7c13e7b63 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Wed, 25 Jun 2008 20:29:31 +0000
Subject: 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
---
 LedgerSMB/DBObject/Company.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'LedgerSMB/DBObject')

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;
 }
 
-- 
cgit v1.2.3