add h_svc_cable for invoices, RT#22009

3 files changed, 39 insertions, 0 deletions

diff --git a/FS/FS/h_svc_cable.pm b/FS/FS/h_svc_cable.pm
new file mode 100644
index 000000000..cee290882
--- /dev/null
+++ b/FS/FS/h_svc_cable.pm
@@ -0,0 +1,32 @@
+package FS::h_svc_cable;
+
+use strict;
+use vars qw( @ISA );
+use FS::h_Common;
+use FS::svc_cable;
+
+@ISA = qw( FS::h_Common FS::svc_cable );
+
+sub table { 'h_svc_cable' };
+
+=head1 NAME
+
+FS::h_svc_cable - Historical PBX objects
+
+=head1 SYNOPSIS
+
+=head1 DESCRIPTION
+
+An FS::h_svc_cable object represents a historical cable subscriber.
+FS::h_svc_cable inherits from FS::h_Common and FS::svc_cable.
+
+=head1 BUGS
+
+=head1 SEE ALSO
+
+L<FS::h_Common>, L<FS::svc_cable>, L<FS::Record>
+
+=cut
+
+1;
+
diff --git a/FS/MANIFEST b/FS/MANIFEST
index 2616d5166..3d81dbbae 100644
--- a/FS/MANIFEST
+++ b/FS/MANIFEST
@@ -694,3 +694,5 @@ FS/svc_cable.pm
 t/svc_cable.t
 FS/cable_device.pm
 t/cable_device.t
+FS/h_svc_cable.pm
+t/h_svc_cable.t
diff --git a/FS/t/h_svc_cable.t b/FS/t/h_svc_cable.t
new file mode 100644
index 000000000..7f9fad585
--- /dev/null
+++ b/FS/t/h_svc_cable.t
@@ -0,0 +1,5 @@
+BEGIN { $| = 1; print "1..1\n" }
+END {print "not ok 1\n" unless $loaded;}
+use FS::h_svc_cable;
+$loaded=1;
+print "ok 1\n";