1 package FS::h_cust_svc;
4 use vars qw( @ISA $DEBUG );
6 use FS::Record qw(qsearchs);
10 @ISA = qw( FS::h_Common FS::cust_svc );
14 sub table { 'h_cust_svc'; }
18 FS::h_cust_svc - Object method for h_cust_svc objects
24 An FS::h_cust_svc object represents a historical service. FS::h_cust_svc
25 inherits from FS::h_Common and FS::cust_svc.
31 =item label END_TIMESTAMP [ START_TIMESTAMP ]
33 Returns a list consisting of:
34 - The name of this historical service (from part_svc)
35 - A meaningful identifier (username, domain, or mail alias)
36 - The table name (i.e. svc_domain) for this historical service
42 carp "FS::h_cust_svc::label called on $self" if $DEBUG;
43 my $svc_x = $self->h_svc_x(@_)
44 or die "can't find h_". $self->part_svc->svcdb. '.svcnum '. $self->svcnum;
45 $self->_svc_label($svc_x, @_);
48 =item h_svc_x END_TIMESTAMP [ START_TIMESTAMP ]
50 Returns the FS::h_svc_XXX object for this service as of END_TIMESTAMP (i.e. an
51 FS::h_svc_acct object or FS::h_svc_domain object, etc.) and (optionally) not
52 cancelled before START_TIMESTAMP.
56 #false laziness w/cust_pkg::h_cust_svc
59 my $svcdb = $self->part_svc->svcdb;
60 #if ( $svcdb eq 'svc_acct' && $self->{'_svc_acct'} ) {
61 # $self->{'_svc_acct'};
63 warn "requiring FS/h_$svcdb.pm" if $DEBUG;
64 require "FS/h_$svcdb.pm";
66 { 'svcnum' => $self->svcnum, },
67 "FS::h_$svcdb"->sql_h_searchs(@_),
78 L<FS::h_Common>, L<FS::cust_svc>, L<FS::Record>, schema.html from the base