summaryrefslogtreecommitdiff
path: root/LedgerSMB/ScriptLib
diff options
context:
space:
mode:
Diffstat (limited to 'LedgerSMB/ScriptLib')
-rw-r--r--LedgerSMB/ScriptLib/Company.pm17
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.