From 1be5d7ada63dc18682e4b6747c66bfed4f34945c Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Wed, 31 Dec 2014 13:57:03 -0800
Subject: [PATCH] default tags on _back-office_ API signup, RT#32727

---
 FS/FS/cust_main/API.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/FS/FS/cust_main/API.pm b/FS/FS/cust_main/API.pm
index 1e1723474..440560029 100644
--- 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
-- 
2.11.0