From: ivan <ivan>
Date: Fri, 21 Oct 2011 23:21:53 +0000 (+0000)
Subject: agent-virt batches and batchconfig-eftcanada config (argh!), RT#14859
X-Git-Tag: freeside_2_3_1~219
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=da47b0185b4a165ecd2f933fe6dc6db66a089379

agent-virt batches and batchconfig-eftcanada config (argh!), RT#14859
---

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