[open-ils-commits] r18017 - trunk/Open-ILS/src/perlmods/OpenILS/SIP/Transaction (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-09-26 19:20:12 -0400 (Sun, 26 Sep 2010)
New Revision: 18017

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/SIP/Transaction/Checkin.pm
Log:
honor SIP return date as the circ backdate

Modified: trunk/Open-ILS/src/perlmods/OpenILS/SIP/Transaction/Checkin.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/SIP/Transaction/Checkin.pm	2010-09-26 23:20:11 UTC (rev 18016)
+++ trunk/Open-ILS/src/perlmods/OpenILS/SIP/Transaction/Checkin.pm	2010-09-26 23:20:12 UTC (rev 18017)
@@ -71,6 +71,13 @@
 
     my $args = {barcode => $self->{item}->id};
 
+    if($return_date) {
+        # SIP date format is YYYYMMDD.  Translate to ISO8601
+        $return_date =~ s/(\d{4})(\d{2})(\d{2}).*/$1-$2-$3/;
+        syslog('LOG_INFO', "Checking in with backdate $return_date");
+        $args->{backdate} = $return_date;
+    }
+
     if($current_loc) { # SIP client specified a physical location
 
         my $org_id = (defined $org_sn_cache{$current_loc}) ?