From da47b0185b4a165ecd2f933fe6dc6db66a089379 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 21 Oct 2011 23:21:53 +0000
Subject: [PATCH] agent-virt batches and batchconfig-eftcanada config (argh!),
 RT#14859

---
 FS/FS/pay_batch.pm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/FS/FS/pay_batch.pm b/FS/FS/pay_batch.pm
index bde8fdbf7..bb92bdf2f 100644
--- a/FS/FS/pay_batch.pm
+++ b/FS/FS/pay_batch.pm
@@ -122,6 +122,16 @@ sub check {
   $self->SUPER::check;
 }
 
+=item agent
+
+Returns the L<FS::agent> object for this template.
+
+=cut
+
+sub agent {
+  qsearchs('agent', { 'agentnum' => $_[0]->agentnum });
+}
+
 =item rebalance
 
 =cut
-- 
2.11.0