Fixed FormatTime to properly fill in leading zeros when hours are less

[clearscm.git] / lib / DateUtils.pm

diff --git a/lib/DateUtils.pm b/lib/DateUtils.pm
index ef11a89..f106394 100644 (file)
--- a/lib/DateUtils.pm
+++ b/lib/DateUtils.pm
@@ -711,6 +711,8 @@ Returns:
   my $AmPm    = $hours > 12 ? "Pm" : "Am";
 
   $hours = $hours - 12 if $hours > 12;
+  
+  $hours = "0$hours" if length $hours == 1;
 
   return "$hours:$minutes $AmPm";
 } # FormatTime