[open-ils-commits] r14067 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-09-20 10:16:51 -0400 (Sun, 20 Sep 2009)
New Revision: 14067

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
Log:
setting checkin_scan_time on circs at checkin time.  This captures the true scan time regardless of the backdate, er, date.

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2009-09-18 22:58:20 UTC (rev 14066)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm	2009-09-20 14:16:51 UTC (rev 14067)
@@ -1101,6 +1101,7 @@
     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 @@
     # 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);