FS/FS/h_svc_www.pm

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