setting checkin_scan_time on circs at checkin time. This captures the true scan...
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Sun, 20 Sep 2009 14:16:51 +0000 (14:16 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Sun, 20 Sep 2009 14:16:51 +0000 (14:16 +0000)
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

index 2739757..c25f2e1 100644 (file)
@@ -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);