RT# 82949 - changes section name from fees to pricing, better opiton

[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();
 
+## 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' });
 
-    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',
@@ -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) {
-        #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();