From 8fd4e70cbf7022a9e2308568d7cff2f1ea9eaf04 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 23 Mar 2010 03:53:51 +0000
Subject: [PATCH] adding svc_mailinglist for communigate "groups" (mailing
 lists), RT#7514

---
 FS/FS.pm                   |  8 ++++++++
 FS/FS/Mason.pm             |  1 +
 FS/FS/h_svc_mailinglist.pm | 33 +++++++++++++++++++++++++++++++++
 FS/t/h_svc_mailinglist.t   |  5 +++++
 4 files changed, 47 insertions(+)
 create mode 100644 FS/FS/h_svc_mailinglist.pm
 create mode 100644 FS/t/h_svc_mailinglist.t

diff --git a/FS/FS.pm b/FS/FS.pm
index f9c7f3573..84ec0f3ab 100644
--- a/FS/FS.pm
+++ b/FS/FS.pm
@@ -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 eb26dde5d..be16bbb27 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 000000000..3d1fd272a
--- /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 000000000..d75575a81
--- /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";
-- 
2.11.0