diff options
| author | matthew <matthew> | 2008-04-15 13:54:53 +0000 |
|---|---|---|
| committer | matthew <matthew> | 2008-04-15 13:54:53 +0000 |
| commit | 5e1460ec799b2bb89d254340a17aff302524cdc0 (patch) | |
| tree | b6b17c0b7b91c0540126ce82b60471d8fa4097d7 | |
| parent | 6c716d81c18a3f2dedb921dd5f874bc8fcaaa9cf (diff) | |
Need year obviously.
| -rw-r--r-- | perllib/Page.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perllib/Page.pm b/perllib/Page.pm index 0a45426f8..c6868f508 100644 --- a/perllib/Page.pm +++ b/perllib/Page.pm @@ -6,7 +6,7 @@ # Copyright (c) 2006 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org; WWW: http://www.mysociety.org/ # -# $Id: Page.pm,v 1.90 2008-04-14 17:10:51 matthew Exp $ +# $Id: Page.pm,v 1.91 2008-04-15 13:54:53 matthew Exp $ # package Page; @@ -396,7 +396,7 @@ sub prettify_epoch { my @t = localtime(); if (strftime('%Y%m%d', @s) eq strftime('%Y%m%d', @t)) { $tt = "$tt " . 'today'; - } elsif (strftime('%U', @s) eq strftime('%U', @t)) { + } elsif (strftime('%Y %U', @s) eq strftime('%Y %U', @t)) { $tt = "$tt, " . strftime('%A', @s); } elsif (strftime('%Y', @s) eq strftime('%Y', @t)) { $tt = "$tt, " . strftime('%A %e %B', @s); |