diff options
| author | Matthew Somerville <matthew@mysociety.org> | 2013-01-25 16:03:34 +0000 |
|---|---|---|
| committer | Matthew Somerville <matthew@mysociety.org> | 2013-01-25 16:03:34 +0000 |
| commit | 65b0b9c0f4716ca351acde6e1ef07058e45ac8fd (patch) | |
| tree | fee53f9cf9b2bf3908d1f47110ef9707cf82c8ad /perllib/Utils.pm | |
| parent | 09ac8e89c3caab877454ab66665410f82f90f945 (diff) | |
Zurich-specific date output on reports.
Diffstat (limited to 'perllib/Utils.pm')
| -rw-r--r-- | perllib/Utils.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/perllib/Utils.pm b/perllib/Utils.pm index 1dd732283..04d973067 100644 --- a/perllib/Utils.pm +++ b/perllib/Utils.pm @@ -242,6 +242,8 @@ sub prettify_dt { $tt .= ', ' unless $type eq 'date'; if ($dt->strftime('%Y %U') eq $now->strftime('%Y %U')) { $tt .= decode_utf8($dt->strftime('%A')); + } elsif ($type eq 'zurich') { + $tt .= decode_utf8($dt->strftime('%e. %B %Y')); } elsif ($type eq 'short') { $tt .= decode_utf8($dt->strftime('%e %b %Y')); } elsif ($dt->strftime('%Y') eq $now->strftime('%Y')) { |