From 8b02cfe94b34f38a5d4dd4d5ea1ce52db1547733 Mon Sep 17 00:00:00 2001 From: Lucas Gass Date: Thu, 20 Oct 2022 16:29:36 +0000 Subject: [PATCH] Bug 31212: Fix date_from_string and explicitly called output_pref subroutine Signed-off-by: Ann Flournoy Signed-off-by: David Nind Signed-off-by: Andrew Fuerste-Henry Signed-off-by: Kyle M Hall Signed-off-by: Tomas Cohen Arazi --- C4/Circulation.pm | 4 ++-- C4/Items.pm | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/C4/Circulation.pm b/C4/Circulation.pm index d1c44b97ad..df23fd6952 100644 --- a/C4/Circulation.pm +++ b/C4/Circulation.pm @@ -42,7 +42,7 @@ use Koha::Account; use Koha::AuthorisedValues; use Koha::BackgroundJob::BatchUpdateBiblioHoldsQueue; use Koha::Biblioitems; -use Koha::DateUtils qw( dt_from_string ); +use Koha::DateUtils qw( dt_from_string output_pref ); use Koha::Calendar; use Koha::Checkouts; use Koha::Illrequests; @@ -1695,7 +1695,7 @@ sub AddIssue { $item_object->itemlost(0); $item_object->onloan($datedue->ymd()); $item_object->datelastborrowed( dt_from_string()->ymd() ); - $item_object->datelastseen( dt_from_string()->ymd() ); + $item_object->datelastseen( dt_from_string() ); $item_object->store( { log_action => 0, skip_holds_queue => 1 } ); # If the item was lost, it has now been found, charge the overdue if necessary diff --git a/C4/Items.pm b/C4/Items.pm index b96b7a56bc..4f1f12d1fd 100644 --- a/C4/Items.pm +++ b/C4/Items.pm @@ -56,7 +56,7 @@ use DateTime::Format::MySQL; # debugging; so please don't remove this use Koha::AuthorisedValues; -use Koha::DateUtils qw( dt_from_string ); +use Koha::DateUtils qw( dt_from_string output_pref ); use Koha::Database; use Koha::Biblios; @@ -406,7 +406,7 @@ sub ModDateLastSeen { my $today = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 0 }); my $item = Koha::Items->find($itemnumber); - $item->datelastseen(dt_from_string->ymd); + $item->datelastseen(dt_from_string); my $log = $item->itemlost && !$leave_item_lost ? 1 : 0; # If item was lost, record the change to the item $item->itemlost(0) unless $leave_item_lost; $item->store({ log_action => $log, skip_record_index => $params->{skip_record_index}, skip_holds_queue => $params->{skip_holds_queue} }); -- 2.39.5