FS/FS/h_svc_forward.pm

   1 package FS::h_svc_forward;
   2
   3 use strict;
   4 use vars qw( @ISA );
   5 se FS::Record qw(qsearchs);
   6 use FS::h_Common;
   7 use FS::svc_forward;
   8 use FS::h_svc_acct;
   9
  10 @ISA = qw( FS::h_Common FS::svc_forward );
  11
  12 sub table { 'h_svc_forward' };
  13
  14 =head1 NAME
  15
  16 FS::h_svc_forward - Historical mail forwarding alias objects
  17
  18 =head1 SYNOPSIS
  19
  20 =head1 METHODS
  21
  22 =over 4
  23
  24 =item srcsvc_acct
  25
  26 =cut
  27
  28 sub srcsvc_acct {
  29   my $self = shift;
  30   qsearchs( 'h_svc_acct',
  31             { 'svcnum' => $self->srcsvc },
  32             FS::h_svc_acct->sql_h_search(@_),
  33           );
  34 }
  35
  36 =item dstsvc_acct
  37
  38 =cut
  39
  40 sub dstsvc_acct {
  41   my $self = shift;
  42   qsearchs( 'h_svc_acct',
  43             { 'svcnum' => $self->dstsvc },
  44             FS::h_svc_acct->sql_h_search(@_),
  45           );
  46 }
  47
  48 =back
  49
  50 =head1 DESCRIPTION
  51
  52 An FS::h_svc_forward object represents a historical mail forwarding alias.
  53 FS::h_svc_forward inherits from FS::h_Common and FS::svc_forward.
  54
  55 =head1 BUGS
  56
  57 =head1 SEE ALSO
  58
  59 L<FS::h_Common>, L<FS::svc_forward>, L<FS::Record>, schema.html from the base
  60 documentation.
  61
  62 =cut
  63
  64 1;
  65