diff options
Diffstat (limited to 'FS/FS/cust_main_invoice.pm')
-rw-r--r-- | FS/FS/cust_main_invoice.pm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/FS/FS/cust_main_invoice.pm b/FS/FS/cust_main_invoice.pm index 71029d0..11d5a44 100644 --- a/FS/FS/cust_main_invoice.pm +++ b/FS/FS/cust_main_invoice.pm @@ -159,6 +159,17 @@ sub address { } } +=item cust_main + +Returns the parent customer object (see L<FS::cust_main>). + +=cut + +sub cust_main { + my $self = shift; + qsearchs( 'cust_main', { 'custnum' => $self->custnum } ); +} + =back =head1 BUGS |