projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
quiet warnings about CGI::param in list context
[freeside.git]
/
httemplate
/
edit
/
process
/
part_pkg.cgi
diff --git
a/httemplate/edit/process/part_pkg.cgi
b/httemplate/edit/process/part_pkg.cgi
index
6bab202
..
3764910
100755
(executable)
--- a/
httemplate/edit/process/part_pkg.cgi
+++ b/
httemplate/edit/process/part_pkg.cgi
@@
-209,10
+209,11
@@
my $update_svc = sub {
my @svcs = $new->pkg_svc();
my @svcs = $new->pkg_svc();
+## update broadband services getting their up and down speeds from package fcc_477 options
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',
@@
-221,7
+222,7
@@
my $update_svc = sub {
'extra_sql' => " WHERE cust_svc.svcpart = '".$svc_part->{Hash}->{svcpart}."' AND cust_pkg.pkgpart = '".$svc_part->{Hash}->{pkgpart}."'",
});
foreach my $svc (@svc_svcdb) {
'extra_sql' => " WHERE cust_svc.svcpart = '".$svc_part->{Hash}->{svcpart}."' AND cust_pkg.pkgpart = '".$svc_part->{Hash}->{pkgpart}."'",
});
foreach my $svc (@svc_svcdb) {
-
#my $svc_new = $svc
;
+
next if ($svc->{Hash}->{speed_down} == $args{fcc_options}->{broadband_downstream} * 1000 && $svc->{Hash}->{speed_up} == $args{fcc_options}->{broadband_upstream} * 1000)
;
$svc->{Hash}->{speed_down} = $args{fcc_options}->{broadband_downstream} * 1000;
$svc->{Hash}->{speed_up} = $args{fcc_options}->{broadband_upstream} * 1000;
$error = $svc->replace();
$svc->{Hash}->{speed_down} = $args{fcc_options}->{broadband_downstream} * 1000;
$svc->{Hash}->{speed_up} = $args{fcc_options}->{broadband_upstream} * 1000;
$error = $svc->replace();