From: ivan <ivan>
Date: Mon, 8 Feb 2010 19:02:35 +0000 (+0000)
Subject: h_svc_pbx.pm, RT#7322
X-Git-Tag: freeside_1_9_2~81
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=c4b9230980c0389bd25476d9652b2f42b7f08f97;p=freeside.git

h_svc_pbx.pm, RT#7322
---

diff --git a/FS/FS.pm b/FS/FS.pm
index 4bc550435..7b9d6fea2 100644
--- a/FS/FS.pm
+++ b/FS/FS.pm
@@ -348,6 +348,8 @@ L<FS::h_svc_forward> - Historical mail forwarding alias objects
 
 L<FS::h_svc_phone> - Historical phone number objects
 
+L<FS::h_svc_pbx> - Historical PBX objects
+
 L<FS::h_svc_www> - Historical web virtual host objects
 
 =head2 Remote API modules
diff --git a/FS/FS/h_svc_pbx.pm b/FS/FS/h_svc_pbx.pm
new file mode 100644
index 000000000..db702f322
--- /dev/null
+++ b/FS/FS/h_svc_pbx.pm
@@ -0,0 +1,33 @@
+package FS::h_svc_pbx;
+
+use strict;
+use vars qw( @ISA );
+use FS::h_Common;
+use FS::svc_pbx;
+
+@ISA = qw( FS::h_Common FS::svc_pbx );
+
+sub table { 'h_svc_pbx' };
+
+=head1 NAME
+
+FS::h_svc_pbx - Historical PBX objects
+
+=head1 SYNOPSIS
+
+=head1 DESCRIPTION
+
+An FS::h_svc_pbx object represents a historical PBX tenant.  FS::h_svc_pbx
+inherits from FS::h_Common and FS::svc_pbx.
+
+=head1 BUGS
+
+=head1 SEE ALSO
+
+L<FS::h_Common>, L<FS::svc_pbx>, L<FS::Record>, schema.html from the base
+documentation.
+
+=cut
+
+1;
+
diff --git a/FS/MANIFEST b/FS/MANIFEST
index 2d032dd0e..bcf4cd3fa 100644
--- a/FS/MANIFEST
+++ b/FS/MANIFEST
@@ -459,3 +459,5 @@ FS/cdr_batch.pm
 t/cdr_batch.t
 FS/svc_pbx.pm
 t/svc_pbx.t
+FS/h_svc_www.pm
+t/h_svc_www.t
diff --git a/FS/t/h_svc_pbx.t b/FS/t/h_svc_pbx.t
new file mode 100644
index 000000000..8b30f52a7
--- /dev/null
+++ b/FS/t/h_svc_pbx.t
@@ -0,0 +1,5 @@
+BEGIN { $| = 1; print "1..1\n" }
+END {print "not ok 1\n" unless $loaded;}
+use FS::h_svc_pbx;
+$loaded=1;
+print "ok 1\n";