diff options
author | ivan <ivan> | 2004-12-29 12:00:08 +0000 |
---|---|---|
committer | ivan <ivan> | 2004-12-29 12:00:08 +0000 |
commit | f7afca1829f8496509d10806439c37fcc1349135 (patch) | |
tree | ac127f51396332ba007d85f04bc414e7e8b1bfc0 /FS/FS/h_svc_www.pm | |
parent | 72312a46911b3e71a4ea9739ee1571d74ae433fd (diff) |
historical (immutable) invoice details about services and other history infrastructure
Diffstat (limited to 'FS/FS/h_svc_www.pm')
-rw-r--r-- | FS/FS/h_svc_www.pm | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/FS/FS/h_svc_www.pm b/FS/FS/h_svc_www.pm new file mode 100644 index 0000000..f2f8af8 --- /dev/null +++ b/FS/FS/h_svc_www.pm @@ -0,0 +1,53 @@ +package FS::h_svc_www; + +use strict; +use vars qw( @ISA ); +se FS::Record qw(qsearchs); +use FS::h_Common; +use FS::svc_www; +use FS::h_domain_record; + +@ISA = qw( FS::h_Common FS::svc_www ); + +sub table { 'h_svc_www' }; + +=head1 NAME + +FS::h_svc_www - Historical web virtual host objects + +=head1 SYNOPSIS + +=head1 METHODS + +=over 4 + +=item domain_record + +=cut + +sub domain_record { + my $self = shift; + qsearchs( 'h_domain_record', + { 'recnum' => $self->recnum }, + FS::h_domain_record->sql_h_search(@_), + ); +} + +=back + +=head1 DESCRIPTION + +An FS::h_svc_www object represents a historical web virtual host. +FS::h_svc_www inherits from FS::h_Common and FS::svc_www. + +=head1 BUGS + +=head1 SEE ALSO + +L<FS::h_Common>, L<FS::svc_www>, L<FS::Record>, schema.html from the base +documentation. + +=cut + +1; + |