[freeside-commits] freeside/FS/FS pay_batch.pm,1.36,1.37

[Ivan,,,]

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

Modified Files:
	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.36
retrieving revision 1.37
diff -u -w -d -r1.36 -r1.37
--- pay_batch.pm	21 Oct 2011 23:08:14 -0000	1.36
+++ pay_batch.pm	21 Oct 2011 23:21:52 -0000	1.37
@@ -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