use DBI 1.33; #The "clone" method was added in DBI 1.33.
use FS::UID qw( dbh driver_name );
use FS::Record qw( qsearch qsearchs );
+use FS::Misc::DateTime qw( day_end );
use FS::queue;
use FS::cust_main;
use FS::part_event;
'check_freq' => $check_freq,
'resetup' => ( $opt{'s'} ? $opt{'s'} : 0 ),
'not_pkgpart' => $opt{'g'}, #$not_pkgpart,
+ 'one_recur' => $opt{'o'},
);
if ( $opt{'m'} ) {
# generate where_pkg/where_event search clause
###
+ my $billtime = day_end($time);
+
# select * from cust_main where
my $where_pkg = <<"END";
EXISTS(
OR ( start_date IS NOT NULL AND start_date <= $^T )
)
)
- OR bill IS NULL OR bill <= $time
+ OR bill IS NULL OR bill <= $billtime
OR ( expire IS NOT NULL AND expire <= $^T )
OR ( adjourn IS NOT NULL AND adjourn <= $^T )
)