}
+=item sql_h_searchs END_TIMESTAMP [ START_TIMESTAMP ]
+
+Like sql_h_search, but limited to the single most recent record (before
+END_TIMESTAMP)
+
+=cut
+
+sub sql_h_searchs {
+ my $self = shift;
+ my($select, $where, $cacheobj, $as) = $self->sql_h_search(@_);
+ $where .= ' LIMIT 1';
+ ($select, $where, $cacheobj, $as);
+}
+
=back
=head1 BUGS
require "FS/h_$svcdb.pm";
qsearchs( "h_$svcdb",
{ 'svcnum' => $self->svcnum, },
- "FS::h_$svcdb"->sql_h_search(@_),
+ "FS::h_$svcdb"->sql_h_searchs(@_),
);
#}
}
--- /dev/null
+package FS::h_domain_record;
+
+use strict;
+use vars qw( @ISA );
+use FS::h_Common;
+use FS::domain_record;
+
+@ISA = qw( FS::h_Common FS::domain_record );
+
+sub table { 'h_domain_record' };
+
+=head1 NAME
+
+FS::h_domain_record - Historical DNS entry objects
+
+=head1 SYNOPSIS
+
+=head1 DESCRIPTION
+
+An FS::h_domain_record object represents a historical entry in a DNS zone.
+FS::h_domain_record inherits from FS::h_Common and FS::domain_record.
+
+=head1 BUGS
+
+=head1 SEE ALSO
+
+L<FS::h_Common>, L<FS::svc_external>, L<FS::Record>, schema.html from the base
+documentation.
+
+=cut
+
+1;
+
my $self = shift;
qsearchs( 'h_svc_domain',
{ 'svcnum' => $self->domsvc },
- FS::h_svc_domain->sql_h_search(@_),
+ FS::h_svc_domain->sql_h_searchs(@_),
);
}
my $self = shift;
qsearchs( 'h_svc_acct',
{ 'svcnum' => $self->srcsvc },
- FS::h_svc_acct->sql_h_search(@_),
+ FS::h_svc_acct->sql_h_searchs(@_),
);
}
my $self = shift;
qsearchs( 'h_svc_acct',
{ 'svcnum' => $self->dstsvc },
- FS::h_svc_acct->sql_h_search(@_),
+ FS::h_svc_acct->sql_h_searchs(@_),
);
}
my $self = shift;
qsearchs( 'h_domain_record',
{ 'recnum' => $self->recnum },
- FS::h_domain_record->sql_h_search(@_),
+ FS::h_domain_record->sql_h_searchs(@_),
);
}
FS/cust_svc.pm
FS/h_Common.pm
FS/h_cust_svc.pm
+FS/h_domain_record.pm
FS/h_svc_acct.pm
FS/h_svc_broadband.pm
FS/h_svc_domain.pm
t/h_cust_svc.t
t/h_Common.t
t/h_cust_svc.t
+t/h_domain_record.t
t/h_svc_acct.t
t/h_svc_broadband.t
t/h_svc_domain.t
--- /dev/null
+BEGIN { $| = 1; print "1..1\n" }
+END {print "not ok 1\n" unless $loaded;}
+use FS::h_domain_record;
+$loaded=1;
+print "ok 1\n";