Changes are:

[clearscm.git] / lib / DateUtils.pm

diff --git a/lib/DateUtils.pm b/lib/DateUtils.pm
index b8c1f49..6c8164f 100644 (file)
--- 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