From 37637a5dbf0ba55b81608df4fe734c85b1739210 Mon Sep 17 00:00:00 2001 From: djfiander Date: Sun, 5 Apr 2009 00:28:00 +0000 Subject: [PATCH] Properly pad dates with leading 0 git-svn-id: svn://svn.open-ils.org/ILS/trunk@12792 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Holding.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Holding.pm b/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Holding.pm index 99db706fa4..d88151b96b 100755 --- a/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Holding.pm +++ b/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Holding.pm @@ -244,6 +244,8 @@ sub incr_date { $new[1] = $dt->month; $new[2] = $dt->day; } + $new[1] = '0' . $new[1] if ($new[1] < 10); + $new[2] = '0' . $new[2] if ($new[2] < 10); } else { warn("Don't know how to cope with @new"); } -- 2.11.0