X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_main.pm;h=499d149a6cffbb02165a98ab9125bf3f2073a7b7;hb=44e3eff0aa6e7bdb7f4ecd9ee1ddf141e1b68af3;hp=b59b0d1ace89aef0a64e06a468b36a094e17c420;hpb=8ea299358401bea12bef7c2dd1841cef3cf45c20;p=freeside.git

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index b59b0d1ac..499d149a6 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -817,6 +817,17 @@ sub cancel {
   grep { $_->cancel } $self->ncancelled_pkgs;
 }
 
+=item agent
+
+Returns the agent (see L<FS::agent>) for this customer.
+
+=cut
+
+sub agent {
+  my $self = shift;
+  qsearchs( 'agent', { 'agent' => $self->agentnum } );
+}
+
 =item bill OPTIONS
 
 Generates invoices (see L<FS::cust_bill>) for this customer.  Usually used in