X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Frate.pm;h=b2d121c228365fe1076dbbb826f2346190ebf45f;hb=529413f23d545179ff07ac393713a225a78014c2;hp=88e93b6f161e554b6da82c68a6044b731a4287b8;hpb=1bea3acc9951c272bd9f5f872d3262c9380e067f;p=freeside.git

diff --git a/FS/FS/rate.pm b/FS/FS/rate.pm
index 88e93b6f1..b2d121c22 100644
--- a/FS/FS/rate.pm
+++ b/FS/FS/rate.pm
@@ -3,7 +3,6 @@ package FS::rate;
 use strict;
 use vars qw( @ISA $DEBUG );
 use FS::Record qw( qsearch qsearchs dbh fields );
-#use FS::agent; #causes a weird dep loop in freeside-cdrrated, only needed for v3-style manual FK-checking, so, probably not bother
 use FS::rate_detail;
 
 @ISA = qw(FS::Record);
@@ -396,6 +395,16 @@ sub rate_detail {
   qsearch( 'rate_detail', { 'ratenum' => $self->ratenum } );
 }
 
+=item agent
+
+=cut
+
+sub agent {
+  my $self = shift;
+  eval "use FS::agent";
+  die $@ if $@;
+  qsearchs( 'agent', { 'agentnum' => $self->agentnum } );
+}
 
 =back