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

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