From 61070078fc7353896b5d1e05c155b22d2a109205 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 21 Oct 2011 23:21:52 +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