From f69c973ce72c4622cfba7a0c8c642454f1a3b1f1 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 5 Jan 2012 01:13:30 +0000
Subject: [PATCH] add h_svc_cert.pm, fixes invoices with certs, RT#15902

---
 FS/FS.pm            | 14 +++++++++++++-
 FS/FS/h_svc_cert.pm | 33 +++++++++++++++++++++++++++++++++
 FS/MANIFEST         |  2 ++
 FS/t/h_svc_cert.t   |  5 +++++
 4 files changed, 53 insertions(+), 1 deletion(-)
 create mode 100644 FS/FS/h_svc_cert.pm
 create mode 100644 FS/t/h_svc_cert.t

diff --git a/FS/FS.pm b/FS/FS.pm
index 2552dbd08..c3a1ac2f6 100644
--- a/FS/FS.pm
+++ b/FS/FS.pm
@@ -204,6 +204,8 @@ L<FS::svc_pbx> - PBX service class
 
 L<FS::svc_cert> - Certificate service class
 
+L<FS::svc_dish> - Dish network service class
+
 L<FS::inventory_class> - Inventory classes
 
 L<FS::inventory_item> - Inventory items
@@ -434,17 +436,27 @@ L<FS::h_svc_acct> - Historical account objects
 
 L<FS::h_svc_broadband> - Historical broadband connection objects
 
+L<FS::h_svc_cert> - Historical certificate services
+
+L<FS::h_svc_dish> - Historical Dish Network services
+
 L<FS::h_svc_domain> - Historical domain objects
 
+L<FS::h_svc_dsl> - Historical DSL objects
+
 L<FS::h_svc_external> - Historical externally tracked service objects
 
 L<FS::h_svc_forward> - Historical mail forwarding alias objects
 
+L<FS::h_svc_hardware> - Historical isntalled hardware service objects
+
 L<FS::h_svc_mailinglist> - Historical mailing list objects
 
+L<FS::h_svc_pbx> - Historical PBX objects
+
 L<FS::h_svc_phone> - Historical phone number objects
 
-L<FS::h_svc_pbx> - Historical PBX objects
+L<FS::h_svc_port> - Historical port number objects
 
 L<FS::h_svc_www> - Historical web virtual host objects
 
diff --git a/FS/FS/h_svc_cert.pm b/FS/FS/h_svc_cert.pm
new file mode 100644
index 000000000..f605e70b2
--- /dev/null
+++ b/FS/FS/h_svc_cert.pm
@@ -0,0 +1,33 @@
+package FS::h_svc_cert;
+
+use strict;
+use vars qw( @ISA );
+use FS::h_Common;
+use FS::svc_cert;
+
+@ISA = qw( FS::h_Common FS::svc_cert );
+
+sub table { 'h_svc_cert' };
+
+=head1 NAME
+
+FS::h_svc_cert - Historical certificate service objects
+
+=head1 SYNOPSIS
+
+=head1 DESCRIPTION
+
+An FS::h_svc_cert object represents a historical certificate service.
+FS::h_svc_cert inherits from FS::h_Common and FS::svc_cert.
+
+=head1 BUGS
+
+=head1 SEE ALSO
+
+L<FS::h_Common>, L<FS::svc_cert>, L<FS::Record>, schema.html from the base
+documentation.
+
+=cut
+
+1;
+
diff --git a/FS/MANIFEST b/FS/MANIFEST
index dac2af0d1..49d27b437 100644
--- a/FS/MANIFEST
+++ b/FS/MANIFEST
@@ -628,3 +628,5 @@ FS/tower.pm
 t/tower.t
 FS/tower_sector.pm
 t/tower_sector.t
+FS/h_svc_cert.pm
+t/h_svc_cert.t
diff --git a/FS/t/h_svc_cert.t b/FS/t/h_svc_cert.t
new file mode 100644
index 000000000..43d952711
--- /dev/null
+++ b/FS/t/h_svc_cert.t
@@ -0,0 +1,5 @@
+BEGIN { $| = 1; print "1..1\n" }
+END {print "not ok 1\n" unless $loaded;}
+use FS::h_svc_cert;
+$loaded=1;
+print "ok 1\n";
-- 
2.11.0