From: Ivan Kohler <ivan@freeside.biz>
Date: Thu, 30 Apr 2015 11:13:17 +0000 (-0700)
Subject: service dependencies: part_pkg_restrict / part_pkg_restrict_soft, RT#33685
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=b83ef1787970f9117a540cfa707ccd2fdcde1175

service dependencies: part_pkg_restrict / part_pkg_restrict_soft, RT#33685
---

diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm
index 2fba2f46c..9d024b61b 100644
--- a/FS/FS/part_pkg.pm
+++ b/FS/FS/part_pkg.pm
@@ -753,17 +753,12 @@ sub check_pkg_svc {
 
   foreach my $svcpart ( keys %pkg_svc ) {
 
-    warn 'checking '. $pkg_svc{$svcpart}->svcpart;
-
     foreach my $part_svc_link ( $self->part_svc_link(
                                   'src_svcpart' => $svcpart,
                                   'link_type'   => 'part_pkg_restrict',
                                 )
     ) {
 
-      use Data::Dumper;
-      warn 'checking '. Dumper($part_svc_link);
-
       return $part_svc_link->dst_svc. ' must be included with '.
              $part_svc_link->src_svc
         unless $pkg_svc{ $part_svc_link->dst_svcpart };