[freeside-commits] branch FREESIDE_4_BRANCH updated. 8c3b59c96ccd10592fb3d176ae1ad54c30b553df

[Mitch Jackson]

The branch, FREESIDE_4_BRANCH has been updated
       via  8c3b59c96ccd10592fb3d176ae1ad54c30b553df (commit)
      from  21dc9c6de6a29861e41d6980da9d0860065bc793 (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 8c3b59c96ccd10592fb3d176ae1ad54c30b553df
Author: Mitch Jackson <mitch at freeside.biz>
Date:   Thu Aug 2 19:22:55 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(-)