diff options
| author | Mitch Jackson <mitch@freeside.biz> | 2018-08-02 19:22:55 -0400 |
|---|---|---|
| committer | Mitch Jackson <mitch@freeside.biz> | 2018-08-02 19:22:55 -0400 |
| commit | 8c3b59c96ccd10592fb3d176ae1ad54c30b553df (patch) | |
| tree | 2390c25891b5f8d8c80876b508a4cd8480e2e040 /httemplate/edit/process/part_pkg.cgi | |
| parent | 21dc9c6de6a29861e41d6980da9d0860065bc793 (diff) | |
RT# 78356 keys on hashref deprecated in perl 5.24
Diffstat (limited to 'httemplate/edit/process/part_pkg.cgi')
| -rwxr-xr-x | httemplate/edit/process/part_pkg.cgi | 2 |
1 files changed, 1 insertions, 1 deletions
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', |