diff options
Diffstat (limited to 'FS')
| -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 | 
