diff options
Diffstat (limited to 'FS/FS/mailinglist.pm')
| -rw-r--r-- | FS/FS/mailinglist.pm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/FS/FS/mailinglist.pm b/FS/FS/mailinglist.pm index db1502c..1294610 100644 --- a/FS/FS/mailinglist.pm +++ b/FS/FS/mailinglist.pm @@ -2,8 +2,9 @@ package FS::mailinglist; use strict; use base qw( FS::Record ); -use FS::Record qw( qsearch dbh ); # qsearchs ); +use FS::Record qw( qsearch qsearchs dbh ); use FS::mailinglistmember; +use FS::svc_mailinglist; =head1 NAME @@ -148,6 +149,15 @@ sub mailinglistmember { qsearch('mailinglistmember', { 'listnum' => $self->listnum } ); } +=item svc_mailinglist + +=cut + +sub svc_mailinglist { + my $self = shift; + qsearchs('svc_mailinglist', { 'listnum' => $self->listnum } ); +} + =back =head1 BUGS |