backoffice API: add new_customer, RT#22830

diff --git a/FS/FS/API.pm b/FS/FS/API.pm
index 81efd67..36587da 100644 (file)
--- a/FS/FS/API.pm
+++ b/FS/FS/API.pm
@@ -243,7 +243,7 @@ sub new_customer {
       'payby'         => 'BILL',
 
       map { $_ => $opt{$_} } qw(
-        agentnum refnum agent_custid
+        agentnum refnum agent_custid referral_custnum
         last first company 
         daytime night fax mobile
         payby payinfo paydate paycvv payname