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 bde8fdb..bb92bdf 100644 (file)
--- 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