my $time_format = sub {
my $time = shift;
- $time > 0
- ? time2str('%T%P %a %b %o %Y', $time )
- : ' ';
+ return ' ' if $time == 0;
+ my $pretty = time2str('%T%P %a %b %o %Y', $time );
+ $pretty =~ s/ (\d)(st|dn|rd|th)/ $1$2/;
};
my $duration_format = sub {
<% foreach my $field ( keys %fields ) { %>
<TH>
<%= $fields{$field}->{name} %><BR>
- <FONT SIZE=-1><%= $fields{$field}->{attrib} %></FONT>
+ <FONT SIZE=-2><%= $fields{$field}->{attrib} %></FONT>
</TH>
<% } %>
</TR>