Recalls - cleanse the incoming due date to ISO8601

Gotta have that missing "T" or else you're going to suffer. And suffer.

Signed-off-by: Dan Scott <dscott@laurentian.ca>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm
index 64fc01b..5f7c0cf 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Publisher/action.pm
@@ -1627,7 +1627,7 @@ sub process_recall {
         }
 
         # Ensure that new loan period is not longer than original due date, if it is, stick with original date
-        if (DateTime->compare(DateTime::Format::ISO8601->parse_datetime($circ->due_date),DateTime::Format::ISO8601->parse_datetime($return_date)) == -1) {
+        if (DateTime->compare(DateTime::Format::ISO8601->parse_datetime(cleanse_ISO8601($circ->due_date)),DateTime::Format::ISO8601->parse_datetime($return_date)) == -1) {
            $return_date = $circ->due_date;
         };