freeside/FS/FS h_Common.pm,1.3,1.4

[Kristian Hoffmann]

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

Modified Files:
	h_Common.pm 
Log Message:
Dump a call trace if something calls FS::h_Common::sql_h_search without END_TIMESTAMP.


Index: h_Common.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/h_Common.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- h_Common.pm	4 Mar 2005 12:34:55 -0000	1.3
+++ h_Common.pm	30 Mar 2005 21:40:06 -0000	1.4
@@ -2,6 +2,7 @@
 
 use strict;
 use FS::Record qw(dbdef);
+use Carp qw(confess);
 
 =head1 NAME
 
@@ -41,6 +42,10 @@
   my $table = $self->table;
   my $pkey = dbdef->table($table)->primary_key
     or die "can't (yet) search history table $table without a primary key";
+
+  unless ($end) {
+    confess 'Called sql_h_search without END_TIMESTAMP';
+  }
 
   my $notcancelled = '';
   if ( scalar(@_) && $_[0] ) {