1 files changed, 0 insertions, 107 deletions
diff --git a/FS/FS/h_cust_svc.pm b/FS/FS/h_cust_svc.pm
deleted file mode 100644
index af0bf60..0000000
--- a/FS/FS/h_cust_svc.pm
+++ /dev/null
@@ -1,107 +0,0 @@
-package FS::h_cust_svc;
-
-use strict;
-use vars qw( @ISA $DEBUG );
-use Carp;
-use FS::Record qw(qsearchs);
-use FS::h_Common;
-use FS::cust_svc;
-
-@ISA = qw( FS::h_Common FS::cust_svc );
-
-$DEBUG = 0;
-
-sub table { 'h_cust_svc'; }
-
-=head1 NAME
-
-FS::h_cust_svc - Object method for h_cust_svc objects
-
-=head1 SYNOPSIS
-
-=head1 DESCRIPTION
-
-An FS::h_cust_svc object  represents a historical service.  FS::h_cust_svc
-inherits from FS::h_Common and FS::cust_svc.
-
-=head1 METHODS
-
-=over 4
-
-=item label END_TIMESTAMP [ START_TIMESTAMP ] 
-
-Returns a list consisting of:
-- The name of this historical service (from part_svc)
-- A meaningful identifier (username, domain, or mail alias)
-- The table name (i.e. svc_domain) for this historical service
-
-=cut
-
-sub label {
-  my $self = shift;
-  carp "FS::h_cust_svc::label called on $self" if $DEBUG;
-  my $svc_x = $self->h_svc_x(@_);
-  my $part_svc = $self->part_svc;
-
-  unless ($svc_x) {
-    carp "can't find h_". $self->part_svc->svcdb. '.svcnum '. $self->svcnum if $DEBUG;
-    return $part_svc->svc, 'n/a', $part_svc->svcdb;
-  }
-
-  my @label;
-  eval { @label = $self->_svc_label($svc_x, @_); };
-
-  if ($@) {
-    carp 'while resolving history record for svcdb/svcnum ' . 
-         $part_svc->svcdb . '/' . $self->svcnum . ': ' . $@ if $DEBUG;
-    return $part_svc->svc, 'n/a', $part_svc->svcdb;
-  } else {
-    return @label;
-  }
-
-}
-
-=item h_svc_x END_TIMESTAMP [ START_TIMESTAMP ] 
-
-Returns the FS::h_svc_XXX object for this service as of END_TIMESTAMP (i.e. an
-FS::h_svc_acct object or FS::h_svc_domain object, etc.) and (optionally) not
-cancelled before START_TIMESTAMP.
-
-=cut
-
-#false laziness w/cust_pkg::h_cust_svc
-sub h_svc_x {
-  my $self = shift;
-  my $svcdb = $self->part_svc->svcdb;
-
-  warn "requiring FS/h_$svcdb.pm" if $DEBUG;
-  require "FS/h_$svcdb.pm";
-  my $svc_x = qsearchs(
-    "h_$svcdb",
-    { 'svcnum' => $self->svcnum, },
-    "FS::h_$svcdb"->sql_h_searchs(@_),
-  ) || $self->SUPER::svc_x;
-
-  if ($svc_x) {
-    carp "Using $svcdb in place of missing h_${svcdb} record."
-      if ($svc_x->isa('FS::' . $svcdb) and $DEBUG);
-    return $svc_x;
-  } else {
-    return '';
-  }
-
-}
-
-=back
-
-=head1 BUGS
-
-=head1 SEE ALSO
-
-L<FS::h_Common>, L<FS::cust_svc>, L<FS::Record>, schema.html from the base
-documentation.
-
-=cut
-
-1;
-