Properly pad dates with leading 0

git-svn-id: svn://svn.open-ils.org/ILS/trunk@12792 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Holding.pm b/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Holding.pm
index 99db706..d88151b 100755 (executable)
--- 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");
     }