From b080ab3e3ed12a6bdf1bd2b7e3799fe1336a3c47 Mon Sep 17 00:00:00 2001
From: mark <mark>
Date: Fri, 27 May 2011 01:11:19 +0000
Subject: invoice batch download fix, #11871

---
 FS/FS/cust_bill.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'FS')

diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm
index 7d1e218c4..4c2b521bf 100644
--- a/FS/FS/cust_bill.pm
+++ b/FS/FS/cust_bill.pm
@@ -245,6 +245,7 @@ sub delete {
     cust_pay_batch
     cust_bill_pay_batch
     cust_bill_pkg
+    cust_bill_batch
   )) {
 
     foreach my $linked ( $self->$table() ) {
@@ -704,6 +705,17 @@ sub cust_credit_bill_pkg {
 
 }
 
+=item cust_bill_batch
+
+Returns all invoice batch records (L<FS::cust_bill_batch>) for this invoice.
+
+=cut
+
+sub cust_bill_batch {
+  my $self = shift;
+  qsearch('cust_bill_batch', { 'invnum' => $self->invnum });
+}
+
 =item tax
 
 Returns the tax amount (see L<FS::cust_bill_pkg>) for this invoice.
-- 
cgit v1.2.1