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/ScriptLib')
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