diff options
author | ivan <ivan> | 2010-03-23 03:54:01 +0000 |
---|---|---|
committer | ivan <ivan> | 2010-03-23 03:54:01 +0000 |
commit | 740a284c94d57bd755baa58dae36eae5bc581e44 (patch) | |
tree | d02b95eac93602bfabcb26f26e0d35be4ffc2c80 | |
parent | f46056f1423db7b7daf4a43f11610e1d961823af (diff) |
adding svc_mailinglist for communigate "groups" (mailing lists), RT#7514
-rw-r--r-- | FS/FS.pm | 8 | ||||
-rw-r--r-- | FS/FS/Mason.pm | 1 | ||||
-rw-r--r-- | FS/FS/h_svc_mailinglist.pm | 33 | ||||
-rw-r--r-- | FS/t/h_svc_mailinglist.t | 5 |
4 files changed, 47 insertions, 0 deletions
@@ -126,6 +126,12 @@ L<FS::registrar> - Domain registrar class L<FS::svc_forward> - Mail forwarding class +L<FS::svc_mailinglist> - (Customer) Mailing list class + +L<FS::mailinglist> - Mailing list class + +L<FS::mailinglistmember> - Mailing list member class + L<FS::svc_www> - Web virtual host class. L<FS::svc_broadband> - DSL, wireless and other broadband class. @@ -346,6 +352,8 @@ L<FS::h_svc_external> - Historical externally tracked service objects L<FS::h_svc_forward> - Historical mail forwarding alias objects +L<FS::h_svc_mailinglist> - Historical mailing list objects + L<FS::h_svc_phone> - Historical phone number objects L<FS::h_svc_pbx> - Historical PBX objects diff --git a/FS/FS/Mason.pm b/FS/FS/Mason.pm index 9a8272b..cc2bdcc 100644 --- a/FS/FS/Mason.pm +++ b/FS/FS/Mason.pm @@ -222,6 +222,7 @@ if ( -e $addl_handler_use_file ) { use FS::h_svc_www; use FS::cust_statement; use FS::svc_pbx; + use FS::svc_mailinglist; # Sammath Naur if ( $FS::Mason::addl_handler_use ) { diff --git a/FS/FS/h_svc_mailinglist.pm b/FS/FS/h_svc_mailinglist.pm new file mode 100644 index 0000000..3d1fd27 --- /dev/null +++ b/FS/FS/h_svc_mailinglist.pm @@ -0,0 +1,33 @@ +package FS::h_svc_mailinglist; + +use strict; +use vars qw( @ISA ); +use FS::h_Common; +use FS::svc_mailinglist; + +@ISA = qw( FS::h_Common FS::svc_mailinglist ); + +sub table { 'h_svc_mailinglist' }; + +=head1 NAME + +FS::h_svc_mailinglist - Historical mailing list objects + +=head1 SYNOPSIS + +=head1 DESCRIPTION + +An FS::h_svc_mailinglist object represents a historical mailing list. +FS::h_svc_mailinglist inherits from FS::h_Common and FS::svc_mailinglist. + +=head1 BUGS + +=head1 SEE ALSO + +L<FS::h_Common>, L<FS::svc_mailinglist>, L<FS::Record>, schema.html from the +base documentation. + +=cut + +1; + diff --git a/FS/t/h_svc_mailinglist.t b/FS/t/h_svc_mailinglist.t new file mode 100644 index 0000000..d75575a --- /dev/null +++ b/FS/t/h_svc_mailinglist.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n" } +END {print "not ok 1\n" unless $loaded;} +use FS::h_svc_mailinglist; +$loaded=1; +print "ok 1\n"; |