X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fvend_bill.pm;h=5ea91fb581d9cbe3220ed35c514977eb05bee538;hp=c8fcdd746ee447eca21242e55886c964217ae8fb;hb=389b6f1116c3309c2ee57a6c295ed1a793503095;hpb=51a648bdf566a6be176b1d7f98a89a2e400481bf diff --git a/FS/FS/vend_bill.pm b/FS/FS/vend_bill.pm index c8fcdd746..5ea91fb58 100644 --- a/FS/FS/vend_bill.pm +++ b/FS/FS/vend_bill.pm @@ -1,11 +1,9 @@ package FS::vend_bill; +use base qw(FS::Record); use strict; -use base qw( FS::Record ); -use FS::Record qw( dbh qsearch qsearchs ); -use FS::vend_main; +use FS::Record qw( dbh ); # qsearch qsearchs ); use FS::vend_pay; -use FS::vend_bill_pay; =head1 NAME @@ -169,22 +167,8 @@ sub check { =item vend_main -=cut - -sub vend_main { - my $self = shift; - qsearchs('vend_main', { 'vendnum', $self->vendnum }); -} - =item vend_bill_pay -=cut - -sub vend_bill_pay { - my $self = shift; - qsearch('vend_bill_pay', { 'vendbillnum', $self->vendbillnum }); -} - =item search =cut