[freeside-commits] freeside/FS/FS pay_batch.pm,1.34.2.2,1.34.2.3

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv28074/FS/FS

Modified Files:
      Tag: FREESIDE_2_3_BRANCH
	pay_batch.pm 
Log Message:
agent-virt batches and batchconfig-eftcanada config (argh!), RT#14859

Index: pay_batch.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/pay_batch.pm,v
retrieving revision 1.34.2.2
retrieving revision 1.34.2.3
diff -u -w -d -r1.34.2.2 -r1.34.2.3
--- pay_batch.pm	21 Oct 2011 23:09:03 -0000	1.34.2.2
+++ pay_batch.pm	21 Oct 2011 23:21:53 -0000	1.34.2.3
@@ -122,6 +122,16 @@
   $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