X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=lib%2FDateUtils.pm;h=6c8164f10251eb01ff7ec3864617b0a03c083724;hb=179f42431b4ab54214ba78d94cd8d3df05d603bb;hp=b8c1f49f662fc486cec21f7d389e160fa0ad3ee1;hpb=020a4a5ea2be725b155cae3a2cadc9aba3911b9b;p=clearscm.git

diff --git a/lib/DateUtils.pm b/lib/DateUtils.pm
index b8c1f49..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
@@ -1260,7 +1263,7 @@ Returns:
 
 =head3 Perl Modules
 
-=for html <p><a href="/php/cvs_man.php?file=lib/Display.pm">Display</a></p>
+=for html <p><a href="/php/scm_man.php?file=lib/Display.pm">Display</a></p>
 
 =head1 INCOMPATABILITIES