From 43e9eb819f977f01066bb65281900d1a20e48831 Mon Sep 17 00:00:00 2001 From: erickson Date: Sun, 20 Sep 2009 14:16:51 +0000 Subject: [PATCH] setting checkin_scan_time on circs at checkin time. This captures the true scan time regardless of the backdate, er, date. git-svn-id: svn://svn.open-ils.org/ILS/trunk@14067 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm index 273975742c..c25f2e1c4d 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm @@ -1101,6 +1101,7 @@ sub handle_claims_returned { if($self->override) { $CR->checkin_time('now'); + $CR->checkin_scan_time('now'); $CR->checkin_lib($self->editor->requestor->ws_ou); $CR->checkin_workstation($self->editor->requestor->wsid); $CR->checkin_staff($self->editor->requestor->id); @@ -2245,6 +2246,9 @@ sub checkin_handle_circ { # Set the checkin vars since we have the item $circ->checkin_time( ($self->backdate) ? $self->backdate : 'now' ); + # capture the true scan time for back-dated checkins + $circ->checkin_scan_time('now'); + $circ->checkin_staff($self->editor->requestor->id); $circ->checkin_lib($self->editor->requestor->ws_ou); $circ->checkin_workstation($self->editor->requestor->wsid); -- 2.11.0