Browse Source

fix a retarded bug where the hour on the bottom line had an extra zero

git-svn-id: file:///home/pjones/src/tmp/b2-svn/prepos/trunk@292 637e2b85-2e0a-0410-84ac-bd785500051d
master
pjones 13 years ago
parent
commit
6b1d9d0d78
1 changed files with 1 additions and 1 deletions
  1. 1
    1
      lib/ui.pl

+ 1
- 1
lib/ui.pl View File

@@ -285,7 +285,7 @@ sub ui_bottom_line {
my @now = localtime(); $now[5] += 1900;
foreach (@now[0..3]) { $_ = $_ < 10 ? "0$_" : $_ }

my $hour = $now[2] > 12 ? $now[2]%12 : $now[2]; $hour = $hour < 10 ? "0$hour" : $hour;
my $hour = $now[2] > 12 ? $now[2]%12 : $now[2]; $hour = $hour < 10 ? "$hour" : $hour;
my $half = $now[2] > 11 ? "PM" : "AM";
my $date = "$days[$now[6]], $mons[$now[4]] $now[3], $now[5]";
my $time = "$now[2]:$now[1]:$now[0] ($hour:$now[1]:$now[0] $half)";

Loading…
Cancel
Save