X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Frate.pm;h=b2d121c228365fe1076dbbb826f2346190ebf45f;hb=b3bcbc3dda6f1b994f206c22b02acddb17ebdf1a;hp=49ac938fd568b441169ad4fcb5b5c9acabbad614;hpb=c3b8e954dbf5ddd04930809edfb77fa106fccaee;p=freeside.git

diff --git a/FS/FS/rate.pm b/FS/FS/rate.pm
index 49ac938fd..b2d121c22 100644
--- a/FS/FS/rate.pm
+++ b/FS/FS/rate.pm
@@ -35,10 +35,18 @@ FS::Record.  The following fields are currently supported:
 
 =over 4
 
-=item ratenum - primary key
+=item ratenum
+
+primary key
 
 =item ratename
 
+Rate name
+
+=item agentnum
+
+Optional agent (see L<FS::agent>) for agent-virtualized rates.
+
 =back
 
 =head1 METHODS
@@ -254,15 +262,13 @@ and replace methods.
 
 =cut
 
-# the check method should currently be supplied - FS::Record contains some
-# data checking routines
-
 sub check {
   my $self = shift;
 
   my $error =
        $self->ut_numbern('ratenum')
     || $self->ut_text('ratename')
+    #|| $self->ut_foreign_keyn('agentnum', 'agent', 'agentnum')
   ;
   return $error if $error;
 
@@ -389,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