diff options
| author | Christopher Burger <burgerc@freeside.biz> | 2018-07-27 08:05:10 -0400 |
|---|---|---|
| committer | Christopher Burger <burgerc@freeside.biz> | 2018-07-31 08:16:24 -0400 |
| commit | 2c013c551506131e70b5d7339f07258861f20300 (patch) | |
| tree | 457013ff7d4d95a1127c544f1aa3077d354ed6aa /FS/FS/part_svc.pm | |
| parent | ff2f162d30fc9485464694e714fcb02b1b767f3d (diff) | |
RT# 78356 - added speed test fields for broadband service and new modifier to get speed from fcc_477 form in package
Diffstat (limited to 'FS/FS/part_svc.pm')
| -rw-r--r-- | FS/FS/part_svc.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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 } }); } |