From: khoff <khoff>
Date: Wed, 30 Mar 2005 21:40:06 +0000 (+0000)
Subject: Dump a call trace if something calls FS::h_Common::sql_h_search without END_TIMESTAMP.
X-Git-Tag: BEFORE_FINAL_MASONIZE~617
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=3fee5d65aa1c555c53a991e9a9f9610b422670fe

Dump a call trace if something calls FS::h_Common::sql_h_search without END_TIMESTAMP.
---

diff --git a/FS/FS/h_Common.pm b/FS/FS/h_Common.pm
index 52af42bfc..e575cffdb 100644
--- a/FS/FS/h_Common.pm
+++ b/FS/FS/h_Common.pm
@@ -2,6 +2,7 @@ package FS::h_Common;
 
 use strict;
 use FS::Record qw(dbdef);
+use Carp qw(confess);
 
 =head1 NAME
 
@@ -42,6 +43,10 @@ sub sql_h_search {
   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] ) {
     $notcancelled = "AND 0 = ( SELECT COUNT(*) FROM $table as notdel