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   my $domain_record = qsearchs(
  38     'h_domain_record',
  39     { 'recnum' => $self->recnum },
  40     FS::h_domain_record->sql_h_searchs(@_),
  41   ) || $self->SUPER::domain_record
  42     or die "no history domain_record.recnum for svc_www.recnum ". $self->domsvc;
  43
  44   carp 'Using domain_record in place of missing h_domain_record record.'
  45     if ($domain_record->isa('FS::domain_record') and $DEBUG);
  46
  47   return $domain_record;
  48
  49 }
  50
  51 =back
  52
  53 =head1 DESCRIPTION
  54
  55 An FS::h_svc_www object represents a historical web virtual host.
  56 FS::h_svc_www inherits from FS::h_Common and FS::svc_www.
  57
  58 =head1 BUGS
  59
  60 =head1 SEE ALSO
  61
  62 L<FS::h_Common>, L<FS::svc_www>, L<FS::Record>, schema.html from the base
  63 documentation.
  64
  65 =cut
  66
  67 1;
  68