RT#30613: Can't Send E-mail [Upgrade improvements]

[freeside.git] / FS / FS / API.pm

diff --git a/FS/FS/API.pm b/FS/FS/API.pm
index 2105409..609008b 100644 (file)
--- a/FS/FS/API.pm
+++ b/FS/FS/API.pm
@@ -383,7 +383,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
 
@@ -415,13 +419,14 @@ sub new_customer {
   #same for refnum like signup_server-default_refnum
 
   my $cust_main = new FS::cust_main ( {
-      'agentnum'      => $agentnum,
-      'refnum'        => $opt{refnum}
-                         || $conf->config('signup_server-default_refnum'),
-      'payby'         => 'BILL',
+      'agentnum' => $agentnum,
+      'refnum'   => $opt{refnum}
+                    || $conf->config('signup_server-default_refnum'),
+      'payby'    => 'BILL',
+      '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