RT# 83450 - fixed rateplan export

[freeside.git] / FS / FS / contact_Mixin.pm

diff --git a/FS/FS/contact_Mixin.pm b/FS/FS/contact_Mixin.pm
index 33cd350..6e8f315 100644 (file)
--- a/FS/FS/contact_Mixin.pm
+++ b/FS/FS/contact_Mixin.pm
@@ -4,13 +4,13 @@ use strict;
 use FS::Record qw( qsearchs );
 use FS::contact;
 
-=item contact
+=item contact_obj
 
 Returns the contact object, if any (see L<FS::contact>).
 
 =cut
 
-sub contact {
+sub contact_obj {
   my $self = shift;
   return '' unless $self->contactnum;
   qsearchs( 'contact', { 'contactnum' => $self->contactnum } );