[open-ils-commits] r12792 - trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD (djfiander)

[svn at svn.open-ils.org]

Author: djfiander
Date: 2009-04-04 20:28:00 -0400 (Sat, 04 Apr 2009)
New Revision: 12792

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Holding.pm
Log:
Properly pad dates with leading 0


Modified: trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Holding.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Holding.pm	2009-04-03 22:12:03 UTC (rev 12791)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Holding.pm	2009-04-05 00:28:00 UTC (rev 12792)
@@ -244,6 +244,8 @@
 	    $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");
     }