1 package FS::h_svc_forward;
4 use vars qw( @ISA $DEBUG );
5 use FS::Record qw(qsearchs);
15 @ISA = qw( FS::h_Common FS::svc_forward );
17 sub table { 'h_svc_forward' };
21 FS::h_svc_forward - Historical mail forwarding alias objects
36 $_[0] ||= $self->history_date;
37 my $h_svc_acct = qsearchs(
39 { 'svcnum' => $self->srcsvc },
40 FS::h_svc_acct->sql_h_searchs(@_),
41 ) || $self->SUPER::srcsvc_acct
42 or die "no history svc_acct.svcnum for svc_forward.srcsvc ". $self->srcsvc;
44 carp 'Using svc_acct in place of missing h_svc_acct record.'
45 if ($h_svc_acct->isa('FS::domain_record') and $DEBUG);
58 $_[0] ||= $self->history_date;
59 my $h_svc_acct = qsearchs(
61 { 'svcnum' => $self->dstsvc },
62 FS::h_svc_acct->sql_h_searchs(@_),
63 ) || $self->SUPER::dstsvc_acct
64 or die "no history svc_acct.svcnum for svc_forward.dstsvc ". $self->dstsvc;
66 carp 'Using svc_acct in place of missing h_svc_acct record.'
67 if ($h_svc_acct->isa('FS::domain_record') and $DEBUG);
76 An FS::h_svc_forward object represents a historical mail forwarding alias.
77 FS::h_svc_forward inherits from FS::h_Common and FS::svc_forward.
83 L<FS::h_Common>, L<FS::svc_forward>, L<FS::Record>, schema.html from the base