diff options
author | Ivan Kohler <ivan@freeside.biz> | 2013-05-15 01:25:45 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2013-05-15 01:25:45 -0700 |
commit | c60a792261878dd4148471b10e3f82980cea4b1e (patch) | |
tree | 7548c147f27ee2ea65eaf2871342550e4cfd74eb /FS | |
parent | ddddcba7554c00271135c3e69d7d5ad5039b6707 (diff) |
add h_svc_cable for invoices, RT#22009
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/h_svc_cable.pm | 32 | ||||
-rw-r--r-- | FS/MANIFEST | 2 | ||||
-rw-r--r-- | FS/t/h_svc_cable.t | 5 |
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 3a58c8e8f..eb4426a21 100644 --- a/FS/MANIFEST +++ b/FS/MANIFEST @@ -700,3 +700,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"; |