default tags on _back-office_ API signup, RT#32727

diff --git a/FS/FS/cust_main/API.pm b/FS/FS/cust_main/API.pm
index 1e17234..4405600 100644 (file)
--- a/FS/FS/cust_main/API.pm
+++ b/FS/FS/cust_main/API.pm
@@ -2,6 +2,7 @@ package FS::cust_main::API;
 
 use strict;
 use FS::Conf;
+use FS::part_tag;
 
 =item API_getinfo FIELD => VALUE, ...
 
@@ -104,7 +105,8 @@ sub API_insert {
   #same for refnum like signup_server-default_refnum?
 
   my $cust_main = new FS::cust_main ( { # $class->new( {
-      'payby'         => 'BILL',
+      'payby'  => 'BILL',
+      'tagnum' => [ FS::part_tag->default_tags ],
 
       map { $_ => $opt{$_} } qw(
         agentnum refnum agent_custid referral_custnum