diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2014-12-31 13:57:03 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2014-12-31 13:57:03 -0800 |
| commit | 1be5d7ada63dc18682e4b6747c66bfed4f34945c (patch) | |
| tree | fcb58ee94b215784a7258127f0732f489216b479 | |
| parent | a51b71cdea80993d815ecd9c79132df0a68b78b6 (diff) | |
default tags on _back-office_ API signup, RT#32727
| -rw-r--r-- | FS/FS/cust_main/API.pm | 4 |
1 files changed, 3 insertions, 1 deletions
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 |