diff options
author | ivan <ivan> | 2010-03-23 09:13:32 +0000 |
---|---|---|
committer | ivan <ivan> | 2010-03-23 09:13:32 +0000 |
commit | 9a778387bc4bfc97d28b25a9c123700fc6c15062 (patch) | |
tree | 8624e3de83e611ae2424633ae7973fc29f171aff /FS/FS/mailinglist.pm | |
parent | f47e74271866786bb10f37d99383f1fb4ea0e349 (diff) |
export svc_mailinglist to CGP groups, RT#7514
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 |