X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcontact_email.pm;h=a0ff2739315c7767f7824cf12540f6e3fc871117;hb=a0e00fa0547e99893c735ab3dbdacdb2bb054f5a;hp=4f787358b4f23625ab1acad2182c0b20be09b8f3;hpb=df1ebf662a9fc3f89503036e0dbf6833c1b95f9e;p=freeside.git

diff --git a/FS/FS/contact_email.pm b/FS/FS/contact_email.pm
index 4f787358b..a0ff27393 100644
--- a/FS/FS/contact_email.pm
+++ b/FS/FS/contact_email.pm
@@ -2,8 +2,6 @@ package FS::contact_email;
 use base qw( FS::Record );
 
 use strict;
-use FS::Record qw( qsearch qsearchs );
-use FS::contact;
 
 =head1 NAME
 
@@ -112,11 +110,6 @@ sub check {
   $self->SUPER::check;
 }
 
-sub contact {
-  my $self = shift;
-  qsearchs( 'contact', { 'contactnum' => $self->contactnum } );
-}
-
 =back
 
 =head1 BUGS