[freeside-commits] branch master updated. 7f708b4460270a0651b4bab1e7f598728b04690d

[Mitch Jackson]

The branch, master has been updated
       via  7f708b4460270a0651b4bab1e7f598728b04690d (commit)
      from  80d6c0b965e62795fa7990e82082be59c8a03087 (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 7f708b4460270a0651b4bab1e7f598728b04690d
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 5beb03411..376491089 100755
--- a/httemplate/edit/process/part_pkg.cgi
+++ b/httemplate/edit/process/part_pkg.cgi
@@ -213,7 +213,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(-)