diff options
author | ivan <ivan> | 2009-09-21 02:41:43 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-09-21 02:41:43 +0000 |
commit | 87ddf7284561e5c912aefe2ecc3f348649b78183 (patch) | |
tree | 5e985fbbe92d07272185ba1fb8ca7ad7b543bf8e /FS/FS/cust_bill_pay.pm | |
parent | fa80d5673f5ae567506da8177d163c770647b0d4 (diff) |
add ability to trigger receipts when payment is used against a specific package instead of when it was made, RT#5199
Diffstat (limited to 'FS/FS/cust_bill_pay.pm')
-rw-r--r-- | FS/FS/cust_bill_pay.pm | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/FS/FS/cust_bill_pay.pm b/FS/FS/cust_bill_pay.pm index e1b02ae..831d7f2 100644 --- a/FS/FS/cust_bill_pay.pm +++ b/FS/FS/cust_bill_pay.pm @@ -150,6 +150,25 @@ sub cust_pay { qsearchs( 'cust_pay', { 'paynum' => $self->paynum } ); } +=item send_receipt HASHREF | OPTION => VALUE ... + + +Sends a payment receipt for the associated payment, against this specific +invoice. If there is an error, returns the error, otherwise returns false. + +See L<FS::cust_pay/send_receipt>. + +=cut + +sub send_receipt { + my $self = shift; + my $opt = ref($_[0]) ? shift : { @_ }; + $self->cust_pay->send_receipt( + 'cust_bill' => $self->cust_bill, + %$opt, + ); +} + =back =head1 BUGS |