From 32072dbf59a054529f5304574c0f56f9567d14d0 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Sat, 28 Dec 2013 16:11:46 -0800
Subject: autoload methods returning foreign records, RT#13971

---
 FS/FS/contact.pm | 35 +----------------------------------
 1 file changed, 1 insertion(+), 34 deletions(-)

(limited to 'FS/FS/contact.pm')

diff --git a/FS/FS/contact.pm b/FS/FS/contact.pm
index da6f2eb..b76f0d9 100644
--- a/FS/FS/contact.pm
+++ b/FS/FS/contact.pm
@@ -2,13 +2,7 @@ package FS::contact;
 use base qw( FS::Record );
 
 use strict;
-use FS::Record qw( qsearch qsearchs dbh );
-use FS::prospect_main;
-use FS::cust_main;
-use FS::contact_class;
-use FS::cust_location;
-use FS::contact_phone;
-use FS::contact_email;
+use FS::Record qw( qsearchs dbh ); # qw( qsearch qsearchs dbh );
 
 =head1 NAME
 
@@ -411,39 +405,12 @@ sub line {
   $data;
 }
 
-sub cust_location {
-  my $self = shift;
-  return '' unless $self->locationnum;
-  qsearchs('cust_location', { 'locationnum' => $self->locationnum } );
-}
-
-sub contact_class {
-  my $self = shift;
-  return '' unless $self->classnum;
-  qsearchs('contact_class', { 'classnum' => $self->classnum } );
-}
-
 sub contact_classname {
   my $self = shift;
   my $contact_class = $self->contact_class or return '';
   $contact_class->classname;
 }
 
-sub contact_phone {
-  my $self = shift;
-  qsearch('contact_phone', { 'contactnum' => $self->contactnum } );
-}
-
-sub contact_email {
-  my $self = shift;
-  qsearch('contact_email', { 'contactnum' => $self->contactnum } );
-}
-
-sub cust_main {
-  my $self = shift;
-  qsearchs('cust_main', { 'custnum' => $self->custnum  } );
-}
-
 =back
 
 =head1 BUGS
-- 
cgit v1.1