diff options
| author | Matthew Somerville <matthew@mysociety.org> | 2011-01-20 23:15:57 +0000 |
|---|---|---|
| committer | Matthew Somerville <matthew@mysociety.org> | 2011-01-20 23:15:57 +0000 |
| commit | ab6c078efbbb3fd01da903d0f6b076186371a1f9 (patch) | |
| tree | 68019e0a9d22057ac5633f6b03f9d66ae9a96186 /perllib/Page.pm | |
| parent | d04fc9175445fa6db7df9dfe2fa929e70b3bb321 (diff) | |
Shorter dates.
Diffstat (limited to 'perllib/Page.pm')
| -rw-r--r-- | perllib/Page.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perllib/Page.pm b/perllib/Page.pm index 917fc6991..817a56761 100644 --- a/perllib/Page.pm +++ b/perllib/Page.pm @@ -444,7 +444,7 @@ EOF } sub prettify_epoch { - my ($q, $s) = @_; + my ($q, $s, $short) = @_; my $cobrand = get_cobrand($q); my $cobrand_datetime = Cobrand::prettify_epoch($cobrand, $s); return $cobrand_datetime if ($cobrand_datetime); @@ -455,6 +455,8 @@ sub prettify_epoch { $tt = "$tt " . _('today'); } elsif (strftime('%Y %U', @s) eq strftime('%Y %U', @t)) { $tt = "$tt, " . strftime('%A', @s); + } elsif ($short) { + $tt = "$tt, " . strftime('%e %b %Y', @s); } elsif (strftime('%Y', @s) eq strftime('%Y', @t)) { $tt = "$tt, " . strftime('%A %e %B %Y', @s); } else { |