FS/FS/h_svc_acct.pm

   1 package FS::h_svc_acct;
   2
   3 use strict;
   4 use vars qw( @ISA );
   5 use FS::Record qw(qsearchs);
   6 use FS::h_Common;
   7 use FS::svc_acct;
   8 use FS::h_svc_domain;
   9
  10 @ISA = qw( FS::h_Common FS::svc_acct );
  11
  12 sub table { 'h_svc_acct' };
  13
  14 =head1 NAME
  15
  16 FS::h_svc_acct - Historical account objects
  17
  18 =head1 SYNOPSIS
  19
  20 =head1 METHODS
  21
  22 =over 4
  23
  24 =item svc_domain
  25
  26 =cut
  27
  28 sub svc_domain {
  29   my $self = shift;
  30   qsearchs( 'h_svc_domain',
  31             { 'svcnum' => $self->domsvc },
  32             FS::h_svc_domain->sql_h_searchs(@_),
  33           );
  34 }
  35
  36 =back
  37
  38 =head1 DESCRIPTION
  39
  40 An FS::h_svc_acct object represents a historical account.  FS::h_svc_acct
  41 inherits from FS::h_Common and FS::svc_acct.
  42
  43 =head1 BUGS
  44
  45 =head1 SEE ALSO
  46
  47 L<FS::h_Common>, L<FS::svc_acct>, L<FS::Record>, schema.html from the base
  48 documentation.
  49
  50 =cut
  51
  52 1;
  53