[freeside-commits] branch FREESIDE_3_BRANCH updated. 12ce18dfa572fabaac35e3d11a905a46095de3b4

[Mitch Jackson]

The branch, FREESIDE_3_BRANCH has been updated
       via  12ce18dfa572fabaac35e3d11a905a46095de3b4 (commit)
      from  8bb6f1d3ea3448c95a5eb2e309e19a01f9251f0d (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 12ce18dfa572fabaac35e3d11a905a46095de3b4
Author: Mitch Jackson <mitch at freeside.biz>
Date:   Thu Aug 2 19:05:36 2018 -0400

    RT# 78356 keys on hashref deprecated in perl 5.24

diff --git a/httemplate/edit/process/part_pkg.cgi b/httemplate/edit/process/part_pkg.cgi
index 1db3a9cd1..9e0fa5f55 100755
--- a/httemplate/edit/process/part_pkg.cgi
+++ b/httemplate/edit/process/part_pkg.cgi
@@ -172,7 +172,7 @@ my $update_svc = sub {
   foreach my $svc_part(@svcs) {
     my @part_svc_column = qsearch('part_svc_column',{ 'svcpart' => $svc_part->{Hash}->{svcpart}, 'columnflag' => 'P' });
 
-    if ($svc_part->{Hash}->{svcdb} eq "svc_broadband" && (keys $args{fcc_options}) && @part_svc_column ) {
+    if ($svc_part->{Hash}->{svcdb} eq "svc_broadband" && (keys %{ $args{fcc_options} }) && @part_svc_column ) {
       ## find provisioned services to update
       my @svc_svcdb = qsearch({
         'table'     => 'svc_broadband',

-----------------------------------------------------------------------

Summary of changes:
 httemplate/edit/process/part_pkg.cgi | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)