*view: avoid leading zero in time display of the hour

[public-inbox.git] / lib / PublicInbox / View.pm

diff --git a/lib/PublicInbox/View.pm b/lib/PublicInbox/View.pm
index f34e1f36d00e20a47754c6b732e7234d36a62e43..2506c95417fc267b6e6436ca0e0bf7175922104b 100644 (file)
--- a/lib/PublicInbox/View.pm
+++ b/lib/PublicInbox/View.pm
@@ -712,9 +712,11 @@ sub missing_thread {
 sub _msg_date {
        my ($mime) = @_;
        my $ts = $mime->header('X-PI-TS') || msg_timestamp($mime);
-       POSIX::strftime('%Y-%m-%d %H:%M', gmtime($ts));
+       fmt_ts($ts);
 }
 
+sub fmt_ts { POSIX::strftime('%Y-%m-%d %k:%M', gmtime($_[0])) }
+
 sub _inline_header {
        my ($dst, $state, $upfx, $mime, $level) = @_;
        my $pfx = INDENT x ($level - 1);
@@ -865,7 +867,7 @@ sub dump_topics {
                $dst .= "$nl$pfx$dot<a\nhref=\"$mid/t/#u\"><b>$subj</b></a>\n";
 
                my $attr;
-               $ts = POSIX::strftime('%Y-%m-%d %H:%M', gmtime($ts));
+               $ts = fmt_ts($ts);
                if ($n == 1) {
                        $attr = "@ $ts UTC";
                        $n = "";