diff options
author | ivan <ivan> | 2008-04-16 00:29:18 +0000 |
---|---|---|
committer | ivan <ivan> | 2008-04-16 00:29:18 +0000 |
commit | 014e04829aea8923679070e5abbe807ddde7637e (patch) | |
tree | 660ff75c459d5dc1e1f7bd4da1c14d7616b33c6a /FS | |
parent | b286503a0445e77d67b323785a73d4339c1145a9 (diff) |
new package def editor
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/part_pkg.pm | 29 |
1 files changed, 22 insertions, 7 deletions
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 |