From 52b311cb03ee6714c2ea8d108efdfef86c2c3e1d Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 22 Feb 2009 08:41:28 +0000
Subject: add agent type list to package def browse, RT#4880

---
 FS/FS/part_pkg.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'FS/FS/part_pkg.pm')

diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm
index 3308ead..f7c56f3 100644
--- a/FS/FS/part_pkg.pm
+++ b/FS/FS/part_pkg.pm
@@ -560,6 +560,18 @@ packages.
 
 =cut
 
+=item type_pkgs
+
+Returns all FS::type_pkgs objects (see L<FS::type_pkgs>) for this package
+definition.
+
+=cut
+
+sub type_pkgs {
+  my $self = shift;
+  qsearch('type_pkgs', { 'pkgpart' => $self->pkgpart } );
+}
+
 sub pkg_svc {
   my $self = shift;
 
-- 
cgit v1.1