From aeb8fa97fcadab8e48b014f66650dac8ac4d32c4 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Wed, 10 Sep 2008 23:04:03 +0000
Subject: Correcting issue saving multiple contact info

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2320 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/ScriptLib/Company.pm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'LedgerSMB')

diff --git a/LedgerSMB/ScriptLib/Company.pm b/LedgerSMB/ScriptLib/Company.pm
index e888c283..9b9b87c9 100644
--- a/LedgerSMB/ScriptLib/Company.pm
+++ b/LedgerSMB/ScriptLib/Company.pm
@@ -457,6 +457,23 @@ sub save_contact {
 
 =over
 
+=item save_contact_new($request)
+
+Saves contact info as a new line as per save_contact above.
+
+=cut
+
+sub save_contact_new{
+    my ($request) = @_;
+    delete $request->{old_contact};
+    delete $request->{old_contact_class};
+    save_contact($request);
+}
+
+=pod
+
+=over
+
 =item save_bank_account($request)
 
 Adds a bank account to a company and, if defined, an entity credit account.
-- 
cgit v1.2.3