X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;ds=inline;f=lib%2FDateUtils.pm;h=6c8164f10251eb01ff7ec3864617b0a03c083724;hb=7e0b880ba9c56cfa877b4b6bf3d190b0ff027bdf;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
+=for html =head1 INCOMPATABILITIES