From ffa2c69b3170181065cfe3f249d6f0508c06b48e Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Mon, 26 Jan 2015 21:05:14 -0800
Subject: [PATCH] add salesnum to new_customer API, RT#33218

---
 FS/FS/API.pm              | 6 +++++-
 FS/FS/ClientAPI/Signup.pm | 4 +++-
 FS/FS/cust_main/API.pm    | 2 +-
 3 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/FS/FS/API.pm b/FS/FS/API.pm
index 99e04774f..62a97d8f0 100644
--- a/FS/FS/API.pm
+++ b/FS/FS/API.pm
@@ -384,7 +384,11 @@ Exact name on credit card for CARD/DCRD, bank name for CHEK/DCHK
 
 =item referral_custnum
 
-referring customer number
+Referring customer number
+
+=item salesnum
+
+Sales person number
 
 =item agentnum
 
diff --git a/FS/FS/ClientAPI/Signup.pm b/FS/FS/ClientAPI/Signup.pm
index 6116609c8..9d0bcf322 100644
--- a/FS/FS/ClientAPI/Signup.pm
+++ b/FS/FS/ClientAPI/Signup.pm
@@ -530,6 +530,7 @@ sub new_customer {
     'tagnum'   => [ FS::part_tag->default_tags ],
 
     ( map { $_ => $packet->{$_} } qw(
+            salesnum
             ss stateid stateid_state
 
             payby
@@ -624,7 +625,7 @@ sub new_customer {
                                     );
     }
 
-    $cust_main->payby('BILL')   # MCRD better?
+    $cust_main->payby('BILL')   # MCRD better?  no, that's for something else
       if $gw && $gw->gateway_namespace eq 'Business::OnlineThirdPartyPayment';
   }
 
@@ -933,6 +934,7 @@ sub new_customer_minimal {
       'payby'    => 'BILL',
 
       map { $_ => $packet->{$_} } qw(
+        salesnum
         last first company daytime night fax mobile
         ss
       ),
diff --git a/FS/FS/cust_main/API.pm b/FS/FS/cust_main/API.pm
index 440560029..283683b8a 100644
--- a/FS/FS/cust_main/API.pm
+++ b/FS/FS/cust_main/API.pm
@@ -109,7 +109,7 @@ sub API_insert {
       'tagnum' => [ FS::part_tag->default_tags ],
 
       map { $_ => $opt{$_} } qw(
-        agentnum refnum agent_custid referral_custnum
+        agentnum salesnum refnum agent_custid referral_custnum
         last first company 
         daytime night fax mobile
         payby payinfo paydate paycvv payname
-- 
2.11.0