FS/FS/h_svc_www.pm

   1 package FS::h_svc_www;
   2
   3 use strict;
   4 use vars qw( @ISA $DEBUG );
   5 use Carp qw(carp);
   6 use FS::Record qw(qsearchs);
   7 use FS::h_Common;
   8 use FS::svc_www;
   9 use FS::h_domain_record;
  10
  11 @ISA = qw( FS::h_Common FS::svc_www );
  12
  13 $DEBUG = 0;
  14
  15 sub table { 'h_svc_www' };
  16
  17 =head1 NAME
  18
  19 FS::h_svc_www - Historical web virtual host objects
  20
  21 =head1 SYNOPSIS
  22
  23 =head1 METHODS
  24
  25 =over 4
  26
  27 =item domain_record
  28
  29 =cut
  30
  31 sub domain_record {
  32   my $self = shift;
  33
  34   carp 'Called FS::h_svc_www->domain_record on svcnum ' . $self->svcnum if $DEBUG;
  35
  36   local($FS::Record::qsearch_qualify_columns) = 0;
  37   $_[0] ||= $self->history_date;
  38   my $domain_record = qsearchs(
  39     'h_domain_record',
  40     { 'recnum' => $self->recnum },
  41     FS::h_domain_record->sql_h_searchs(@_),
  42   ) || $self->SUPER::domain_record
  43     or die "no history domain_record.recnum for svc_www.recnum ". $self->domsvc;
  44
  45   carp 'Using domain_record in place of missing h_domain_record record.'
  46     if ($domain_record->isa('FS::domain_record') and $DEBUG);
  47
  48   return $domain_record;
  49
  50 }
  51
  52 =back
  53
  54 =head1 DESCRIPTION
  55
  56 An FS::h_svc_www object represents a historical web virtual host.
  57 FS::h_svc_www inherits from FS::h_Common and FS::svc_www.
  58
  59 =head1 BUGS
  60
  61 =head1 SEE ALSO
  62
  63 L<FS::h_Common>, L<FS::svc_www>, L<FS::Record>, schema.html from the base
  64 documentation.
  65
  66 =cut
  67
  68 1;
  69