fix mailinglistmember.pm dependency on contact_email.pm from 2.1 branch, RT#7897

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

diff --git a/FS/FS/mailinglistmember.pm b/FS/FS/mailinglistmember.pm
index 49688d8..8655d61 100644 (file)
--- a/FS/FS/mailinglistmember.pm
+++ b/FS/FS/mailinglistmember.pm
@@ -6,7 +6,6 @@ use Scalar::Util qw( blessed );
 use FS::Record qw( dbh qsearchs ); # qsearch );
 use FS::mailinglist;
 use FS::svc_acct;
-use FS::contact_email;
 
 =head1 NAME
 
@@ -47,10 +46,6 @@ listnum
 
 svcnum
 
-=item contactemailnum
-
-contactemailnum
-
 =item email
 
 email
@@ -193,7 +188,6 @@ sub check {
     $self->ut_numbern('membernum')
     || $self->ut_foreign_key('listnum', 'mailinglist', 'listnum')
     || $self->ut_foreign_keyn('svcnum', 'svc_acct', 'svcnum')
-    || $self->ut_foreign_keyn('contactemailnum', 'contact_email', 'contactemailnum')
     || $self->ut_textn('email') #XXX ut_email! from svc_forward, cust_main_invoice
   ;
   return $error if $error;
@@ -216,7 +210,7 @@ sub mailinglist {
 
 sub email_address {
   my $self = shift;
-  #XXX svcnum, contactemailnum
+  #XXX svcnum
   $self->email;
 }