gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 38605: Fix Harvester.pm use of days parameter 

Dates were incorrectly handled during the first days of the month because of
the use of non-zero-padded days values.

(t/db_dependent/Koha/OAIHarvester.t failed)

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Signed-off-by: David Nind <david@davidnind.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
Matthias Meusburger 2024-12-04 10:13:07 +00:00 committed by Katrin Fischer
parent 1c864c5df7
commit 73fbdbb1f8
No known key found for this signature in database
GPG Key ID: 0EF6E2C03357A834
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Koha/OAI/Client/Harvester.pm
View File

@ -46,11 +46,7 @@ use MARC::Record;
use Modern::Perl;
use DateTime;
use DateTime::Format::Strptime;
use Try::Tiny qw( catch try );
use Date::Calc qw(
Add_Delta_Days
Today
);
use Try::Tiny qw( catch try );
our $xslt_engine = Koha::XSLT::Base->new;
@ -129,9 +125,7 @@ sub init {
if ($days) {
# Change this to yyyy-mm-dd
my ( $nowyear, $nowmonth, $nowday ) = Today();
my @date = Add_Delta_Days( $nowyear, $nowmonth, $nowday, -$days );
my $dt_start = dt_from_string( $date[0] . '-' . $date[1] . '-' . $date[2] );
my $dt_start = dt_from_string->subtract( days => $days );
$start_date = $dt_start->ymd();
$self->printlog("Harvesting from $start_date");
}