projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
8bb6f1d
)
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:29:07 +0000
(19:29 -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
1db3a9c
..
9e0fa5f
100755
(executable)
--- 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' });
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',
## find provisioned services to update
my @svc_svcdb = qsearch({
'table' => 'svc_broadband',