From f9639040d347e8190abb54e99bf8763b3869705d Mon Sep 17 00:00:00 2001 From: Lucas Gass Date: Thu, 20 Nov 2025 13:29:46 +0000 Subject: [PATCH] Bug 34069: Adjust before and after date search --- tools/restore_deleted_borrowers.pl | 20 +++++++++++++++----- 1 file changed, 15 insertions(+), 5 deletions(-) diff --git a/tools/restore_deleted_borrowers.pl b/tools/restore_deleted_borrowers.pl index 417b5e15087..30b59c4cc39 100755 --- a/tools/restore_deleted_borrowers.pl +++ b/tools/restore_deleted_borrowers.pl @@ -23,8 +23,9 @@ use CGI qw ( -utf8 ); use Try::Tiny; use Scalar::Util qw( blessed ); -use C4::Auth qw( get_template_and_user haspermission ); -use C4::Output qw( output_html_with_http_headers ); +use Koha::DateUtils qw( dt_from_string ); +use C4::Auth qw( get_template_and_user haspermission ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; use Koha::Old::Patrons; @@ -107,12 +108,21 @@ if ( $op eq 'search' ) { $search_params{email} = { 'like' => "%$email%" } if $email; #date parameters + my $dtf = Koha::Database->new->schema->storage->datetime_parser; if ( $deleted_from && $deleted_to ) { - $search_params{updated_on} = { -between => [ $deleted_from, $deleted_to ] }; + my $from_dt = dt_from_string($deleted_from); + my $to_dt = dt_from_string($deleted_to)->add( days => 1 ); + + $search_params{updated_on} = { + '>=' => $dtf->format_datetime($from_dt), + '<' => $dtf->format_datetime($to_dt) + }; } elsif ($deleted_from) { - $search_params{updated_on} = { '>=' => $deleted_from }; + my $from_dt = dt_from_string($deleted_from); + $search_params{updated_on} = { '>=' => $dtf->format_datetime($from_dt) }; } elsif ($deleted_to) { - $search_params{updated_on} = { '<=' => $deleted_to }; + my $to_dt = dt_from_string($deleted_to)->add( days => 1 ); + $search_params{updated_on} = { '<' => $dtf->format_datetime($to_dt) }; } my $deleted_patrons_rs = Koha::Old::Patrons->search( -- 2.39.5