projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
80d6c0b
)
RT# 78356 keys on hashref deprecated in perl 5.24
author
Mitch Jackson
<mitch@freeside.biz>
Thu, 2 Aug 2018 23:05:36 +0000
(19:05 -0400)
committer
Mitch Jackson
<mitch@freeside.biz>
Thu, 2 Aug 2018 23:06:11 +0000
(19:06 -0400)
httemplate/edit/process/part_pkg.cgi
patch
|
blob
|
history
diff --git
a/httemplate/edit/process/part_pkg.cgi
b/httemplate/edit/process/part_pkg.cgi
index
5beb034
..
3764910
100755
(executable)
--- 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',