X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=lib%2FDateUtils.pm;h=6c8164f10251eb01ff7ec3864617b0a03c083724;hb=ae4640876d3db35a5b482ca1fea8dd7762c295b0;hp=ef11a89b6c203d8a9c898ed712428b6315de550d;hpb=81cbd130706633b1c19ff59371c2ef61d80c562b;p=clearscm.git

diff --git a/lib/DateUtils.pm b/lib/DateUtils.pm
index ef11a89..6c8164f 100644
--- a/lib/DateUtils.pm
+++ b/lib/DateUtils.pm
@@ -60,7 +60,7 @@ use Time::Local;
 use Display;
 use Utils;
 
-our @EXPORT = qw (
+our @EXPORT = qw(
   Add
   Age
   Compare
@@ -79,6 +79,7 @@ our @EXPORT = qw (
   YMDHMS
   timestamp
   ymdhms
+  MDYHMS2SQLDatetime
 );
 
 my @months = (
@@ -711,6 +712,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