X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_pkg.pm;h=22c545148a5c57eefaabcdbca68dfb79cebfe60f;hb=014e04829aea8923679070e5abbe807ddde7637e;hp=d4570f7fc3ceffeafab9e0abbfc131f3d8b09b02;hpb=6a24254d490f3d023728044daba0765f20f6971e;p=freeside.git

diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm
index d4570f7fc..22c545148 100644
--- a/FS/FS/part_pkg.pm
+++ b/FS/FS/part_pkg.pm
@@ -17,7 +17,7 @@ use FS::pkg_class;
 use FS::agent;
 use FS::part_pkg_taxoverride;
 use FS::part_pkg_taxproduct;
-#XXX#use FS::part_pkg_link;
+use FS::part_pkg_link;
 
 @ISA = qw( FS::m2m_Common FS::option_Common );
 $DEBUG = 0;
@@ -701,15 +701,30 @@ sub option {
   '';
 }
 
-=item dst_pkgpart
+=item bill_part_pkg_link
+
+Returns the associated part_pkg_link records (see L<FS::part_pkg_link).
+
+=cut
+
+sub bill_part_pkg_link {
+  shift->_part_pkg_link('bill', @_);
+}
+
+=item svc_part_pkg_link
 
 =cut
 
-sub part_pkg_link {
-  ();
-  #XXX
-  #my $self = shift;
-  #qsearch('part_pkg_link', { 'src_pkgpart' => $self->pkgpart } );
+sub svc_part_pkg_link {
+  shift->_part_pkg_link('svc', @_);
+}
+
+sub _part_pkg_link {
+  my( $self, $type ) = shift;
+  qsearch('part_pkg_link', { 'src_pkgpart' => $self->pkgpart,
+                             'link_type'   => $type,
+                           }
+         );
 }
 
 =item part_pkg_taxoverride