diff options
Diffstat (limited to 'FS/FS/quotation_pkg.pm')
| -rw-r--r-- | FS/FS/quotation_pkg.pm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/FS/FS/quotation_pkg.pm b/FS/FS/quotation_pkg.pm index c9724d1..c73f857 100644 --- a/FS/FS/quotation_pkg.pm +++ b/FS/FS/quotation_pkg.pm @@ -192,6 +192,18 @@ sub cust_bill_pkg_display { } +=item cust_main + +Returns the customer (L<FS::cust_main> object). + +=cut + +sub cust_main { + my $self = shift; + my $quotation = FS::quotation->by_key($self->quotationnum) or return ''; + $quotation->cust_main; +} + =back =head1 BUGS |