From 2a85fa229352c5e273ff2474da86005cd0f87348 Mon Sep 17 00:00:00 2001 From: gmc Date: Thu, 5 Aug 2010 03:03:15 +0000 Subject: [PATCH] bug 613703: normalize backdate on item checkin better Fixes bug that appears to cause all checkins uploaded via offline circ to fail with an "invalid date format" error. Signed-off-by: Galen Charlton git-svn-id: svn://svn.open-ils.org/ILS/trunk@17088 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm index 8cb1dd16f..7eb71928f 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Circulate.pm @@ -2797,7 +2797,7 @@ sub checkin_handle_lost { sub checkin_handle_backdate { my $self = shift; - my $bd = $self->backdate; + my $bd = cleanse_ISO8601($self->backdate); # ------------------------------------------------------------------ # clean up the backdate for date comparison @@ -2805,7 +2805,7 @@ sub checkin_handle_backdate { # ------------------------------------------------------------------ my $original_date = DateTime::Format::ISO8601->new->parse_datetime(cleanse_ISO8601($self->circ->due_date)); my $new_date = DateTime::Format::ISO8601->new->parse_datetime($bd); - $bd = $new_date->ymd . 'T' . $original_date->strftime('%T%z'); + $bd = cleanse_ISO8601($new_date->ymd . 'T' . $original_date->strftime('%T%z')); $self->backdate($bd); -- 2.11.0