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_forward.pm | |
parent | 72312a46911b3e71a4ea9739ee1571d74ae433fd (diff) |
historical (immutable) invoice details about services and other history infrastructure
Diffstat (limited to 'FS/FS/h_svc_forward.pm')
-rw-r--r-- | FS/FS/h_svc_forward.pm | 65 |
1 files changed, 65 insertions, 0 deletions
diff --git a/FS/FS/h_svc_forward.pm b/FS/FS/h_svc_forward.pm new file mode 100644 index 000000000..231f9dfae --- /dev/null +++ b/FS/FS/h_svc_forward.pm @@ -0,0 +1,65 @@ +package FS::h_svc_forward; + +use strict; +use vars qw( @ISA ); +se FS::Record qw(qsearchs); +use FS::h_Common; +use FS::svc_forward; +use FS::h_svc_acct; + +@ISA = qw( FS::h_Common FS::svc_forward ); + +sub table { 'h_svc_forward' }; + +=head1 NAME + +FS::h_svc_forward - Historical mail forwarding alias objects + +=head1 SYNOPSIS + +=head1 METHODS + +=over 4 + +=item srcsvc_acct + +=cut + +sub srcsvc_acct { + my $self = shift; + qsearchs( 'h_svc_acct', + { 'svcnum' => $self->srcsvc }, + FS::h_svc_acct->sql_h_search(@_), + ); +} + +=item dstsvc_acct + +=cut + +sub dstsvc_acct { + my $self = shift; + qsearchs( 'h_svc_acct', + { 'svcnum' => $self->dstsvc }, + FS::h_svc_acct->sql_h_search(@_), + ); +} + +=back + +=head1 DESCRIPTION + +An FS::h_svc_forward object represents a historical mail forwarding alias. +FS::h_svc_forward inherits from FS::h_Common and FS::svc_forward. + +=head1 BUGS + +=head1 SEE ALSO + +L<FS::h_Common>, L<FS::svc_forward>, L<FS::Record>, schema.html from the base +documentation. + +=cut + +1; + |