From 2c013c551506131e70b5d7339f07258861f20300 Mon Sep 17 00:00:00 2001 From: Christopher Burger Date: Fri, 27 Jul 2018 08:05:10 -0400 Subject: RT# 78356 - added speed test fields for broadband service and new modifier to get speed from fcc_477 form in package --- FS/FS/part_svc.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'FS/FS/part_svc.pm') diff --git a/FS/FS/part_svc.pm b/FS/FS/part_svc.pm index 3415595..b82996e 100644 --- a/FS/FS/part_svc.pm +++ b/FS/FS/part_svc.pm @@ -873,10 +873,10 @@ sub process { map { my $f = $svcdb.'__'.$_; my $flag = $param->{ $f.'_flag' } || ''; #silence warnings - if ( $flag =~ /^[MAH]$/ ) { + if ( $flag =~ /^[MAHP]$/ ) { $param->{ $f } = delete( $param->{ $f.'_classnum' } ); } - if ( ( $flag =~ /^[MAHS]$/ or $_ eq 'usergroup' ) + if ( ( $flag =~ /^[MAHSP]$/ or $_ eq 'usergroup' ) and ref($param->{ $f }) ) { $param->{ $f } = join(',', @{ $param->{ $f } }); } -- cgit v1.1