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

1 files changed, 17 insertions, 0 deletions

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.