diff options
| -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
@@ -130,6 +130,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. @@ -370,6 +376,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 eb26dde..be16bbb 100644 --- a/FS/FS/Mason.pm +++ b/FS/FS/Mason.pm @@ -231,6 +231,7 @@ if ( -e $addl_handler_use_file ) { use FS::discount; use FS::cust_pkg_discount; use FS::cust_bill_pkg_discount; + 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"; |