RT# 78356 - cleaned up error message display
[freeside.git] / FS / FS / contact_Mixin.pm
1 package FS::contact_Mixin;
2
3 use strict;
4 use FS::Record qw( qsearchs );
5 use FS::contact;
6
7 =item contact_obj
8
9 Returns the contact object, if any (see L<FS::contact>).
10
11 =cut
12
13 sub contact_obj {
14   my $self = shift;
15   return '' unless $self->contactnum;
16   qsearchs( 'contact', { 'contactnum' => $self->contactnum } );
17 }
18
19 1;