use FS::Record qw( dbh qsearchs ); # qsearch );
use FS::mailinglist;
use FS::svc_acct;
-use FS::contact_email;
=head1 NAME
svcnum
-=item contactemailnum
-
-contactemailnum
-
=item email
email
$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;
sub email_address {
my $self = shift;
- #XXX svcnum, contactemailnum
+ #XXX svcnum
$self->email;
}