added label method

1 files changed, 20 insertions, 0 deletions

diff --git a/site_perl/cust_pkg.pm b/site_perl/cust_pkg.pm
index 7dc5aa7ec..249e1b77c 100644
--- a/site_perl/cust_pkg.pm
+++ b/site_perl/cust_pkg.pm
@@ -6,6 +6,7 @@ use Exporter;
 use FS::UID qw(getotaker);
 use FS::Record qw(fields qsearch qsearchs);
 use FS::cust_svc;
+use FS::part_pkg;
 
 @ISA = qw(FS::Record Exporter);
 
@@ -34,6 +35,8 @@ FS::cust_pkg - Object methods for cust_pkg objects
 
   $error = $record->unsuspend;
 
+  $part_pkg = $record->part_pkg;
+
   $error = FS::cust_pkg::order( $custnum, \@pkgparts );
   $error = FS::cust_pkg::order( $custnum, \@pkgparts, \@remove_pkgnums ] );
 
@@ -356,6 +359,18 @@ sub unsuspend {
   ''; #no errors
 }
 
+=item part_pkg
+
+Returns the definition for this billing item, as an FS::part_pkg object (see
+L<FS::part_pkg).
+
+=cut
+
+sub part_pkg {
+  my($self)=@_;
+  qsearchs('part_pkg', { 'pkgpart' => $self->pkgpart });
+}
+
 =back
 
 =head1 SUBROUTINES
@@ -501,6 +516,11 @@ fixed for new agent->agent_type->type_pkgs in &order ivan@sisd.com 98-mar-7
 
 pod ivan@sisd.com 98-sep-21
 
+$Log: cust_pkg.pm,v $
+Revision 1.2  1998-11-12 03:42:45  ivan
+added label method
+
+
 =cut
 
 1;