diff options
author | Ivan Kohler <ivan@freeside.biz> | 2015-04-30 04:13:17 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2015-04-30 04:13:17 -0700 |
commit | b83ef1787970f9117a540cfa707ccd2fdcde1175 (patch) | |
tree | ebe67876c3758688d256b9b26afb50d0d9d7e65c /FS/FS/part_pkg.pm | |
parent | 76e217e6a453518ae9aef2b63fae49629101470c (diff) |
service dependencies: part_pkg_restrict / part_pkg_restrict_soft, RT#33685
Diffstat (limited to 'FS/FS/part_pkg.pm')
-rw-r--r-- | FS/FS/part_pkg.pm | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm index 2fba2f4..9d024b6 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 }; |