X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fquotation_pkg.pm;h=1c4766e7979660748c1757c0d4040847c4acd12a;hp=c579e359b29ca97457372c470dbbc6adb8878b47;hb=53ed077b4901be22b3ca5405a093364b6f6b6407;hpb=35c18f29bc29dedfe2fa4ef037390d90b17f87ba diff --git a/FS/FS/quotation_pkg.pm b/FS/FS/quotation_pkg.pm index c579e359b..1c4766e79 100644 --- a/FS/FS/quotation_pkg.pm +++ b/FS/FS/quotation_pkg.pm @@ -442,7 +442,7 @@ Returns the customer (L object). sub cust_main { my $self = shift; - my $quotation = FS::quotation->by_key($self->quotationnum) or return ''; + my $quotation = $self->quotation or return ''; $quotation->cust_main; } @@ -454,20 +454,10 @@ Returns the prospect (L object). sub prospect_main { my $self = shift; - my $quotation = FS::quotation->by_key($self->quotationnum) or return ''; + my $quotation = $self->quotation or return ''; $quotation->prospect_main; } -sub quotation_pkg_tax { - my $self = shift; - qsearch('quotation_pkg_tax', { quotationpkgnum => $self->quotationpkgnum }); -} - -sub cust_location { - my $self = shift; - $self->locationnum ? qsearchs('cust_location', { locationnum => $self->locationnum }) : ''; -} - =back =head1 BUGS