diff options
| -rw-r--r-- | FS/FS/h_Common.pm | 5 |
1 files changed, 5 insertions, 0 deletions
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 |