freeside/FS/FS h_domain_record.pm,NONE,1.1 h_Common.pm,1.1,1.2 h_cust_svc.pm,1.1,1.2 h_svc_acct.pm,1.1,1.2 h_svc_forward.pm,1.1,1.2 h_svc_www.pm,1.1,1.2

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv20840/FS/FS

Modified Files:
	h_Common.pm h_cust_svc.pm h_svc_acct.pm h_svc_forward.pm 
	h_svc_www.pm 
Added Files:
	h_domain_record.pm 
Log Message:
clean up some harmless but scary "Multiple records in scalar search" warnings w/history table searches

Index: h_Common.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/h_Common.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- h_Common.pm	29 Dec 2004 12:00:06 -0000	1.1
+++ h_Common.pm	3 Mar 2005 10:25:21 -0000	1.2
@@ -69,6 +69,20 @@
 
 }
 
+=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

Index: h_svc_www.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/h_svc_www.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- h_svc_www.pm	29 Dec 2004 12:00:06 -0000	1.1
+++ h_svc_www.pm	3 Mar 2005 10:25:21 -0000	1.2
@@ -29,7 +29,7 @@
   my $self = shift;
   qsearchs( 'h_domain_record',
             { 'recnum' => $self->recnum },
-            FS::h_domain_record->sql_h_search(@_),
+            FS::h_domain_record->sql_h_searchs(@_),
           );
 }
 

--- NEW FILE: h_domain_record.pm ---
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;


Index: h_svc_acct.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/h_svc_acct.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- h_svc_acct.pm	29 Dec 2004 12:00:06 -0000	1.1
+++ h_svc_acct.pm	3 Mar 2005 10:25:21 -0000	1.2
@@ -29,7 +29,7 @@
   my $self = shift;
   qsearchs( 'h_svc_domain',
             { 'svcnum' => $self->domsvc },
-            FS::h_svc_domain->sql_h_search(@_),
+            FS::h_svc_domain->sql_h_searchs(@_),
           );
 }
 

Index: h_cust_svc.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/h_cust_svc.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- h_cust_svc.pm	29 Dec 2004 12:00:05 -0000	1.1
+++ h_cust_svc.pm	3 Mar 2005 10:25:21 -0000	1.2
@@ -64,7 +64,7 @@
     require "FS/h_$svcdb.pm";
     qsearchs( "h_$svcdb",
               { 'svcnum'       => $self->svcnum, },
-              "FS::h_$svcdb"->sql_h_search(@_),
+              "FS::h_$svcdb"->sql_h_searchs(@_),
             );
   #}
 }

Index: h_svc_forward.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/h_svc_forward.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- h_svc_forward.pm	29 Dec 2004 12:00:06 -0000	1.1
+++ h_svc_forward.pm	3 Mar 2005 10:25:21 -0000	1.2
@@ -29,7 +29,7 @@
   my $self = shift;
   qsearchs( 'h_svc_acct',
             { 'svcnum' => $self->srcsvc },
-            FS::h_svc_acct->sql_h_search(@_),
+            FS::h_svc_acct->sql_h_searchs(@_),
           );
 }
 
@@ -41,7 +41,7 @@
   my $self = shift;
   qsearchs( 'h_svc_acct',
             { 'svcnum' => $self->dstsvc },
-            FS::h_svc_acct->sql_h_search(@_),
+            FS::h_svc_acct->sql_h_searchs(@_),
           );
 }