X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_bill_pkg_display.pm;h=e3afded4bb05967a6bc1d18d6c41109f04d17276;hp=d7c1472818437f8b66abc5167df4e6339afe8f21;hb=a36e0f8a0f69349dafaa16d1d2d57dfb6e5dbc85;hpb=dbae615569712c6f392dfd6cc1930f9d93340e31 diff --git a/FS/FS/cust_bill_pkg_display.pm b/FS/FS/cust_bill_pkg_display.pm index d7c147281..e3afded4b 100644 --- a/FS/FS/cust_bill_pkg_display.pm +++ b/FS/FS/cust_bill_pkg_display.pm @@ -1,10 +1,7 @@ package FS::cust_bill_pkg_display; +use base qw( FS::Record ); use strict; -use vars qw( @ISA ); -use FS::Record qw( qsearch qsearchs ); - -@ISA = qw(FS::Record); =head1 NAME @@ -146,18 +143,10 @@ sub check { Returns the associated cust_bill_pkg (see L) for this line item display object. -=cut - -sub cust_bill_pkg { - my $self = shift; - qsearchs( 'cust_bill_pkg', { 'billpkgnum' => $self->billpkgnum } ) ; -} - =back =head1 BUGS - =head1 SEE ALSO L, L, schema.html from the base documentation.