diff options
| author | Jannis M. Hoffmann <jannis.hoffmann@rwth-aachen.de> | 2020-11-03 16:46:59 +0100 |
|---|---|---|
| committer | Jannis M. Hoffmann <jannis.hoffmann@rwth-aachen.de> | 2020-11-03 16:46:59 +0100 |
| commit | 582f135054625f52aa08c4b52b30ee152c5aa282 (patch) | |
| tree | d83445bcceac5c112829938e1f352e56968908dc /templates/headers/_display_headers.html.ep | |
| parent | 0bb0218644fdd75cdd725432af1e9de154802180 (diff) | |
parse_iso_date as helper; replaced Crypt::Random with Crypt::URandom
Diffstat (limited to 'templates/headers/_display_headers.html.ep')
| -rw-r--r-- | templates/headers/_display_headers.html.ep | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/templates/headers/_display_headers.html.ep b/templates/headers/_display_headers.html.ep index 67e60b4..e7f9650 100644 --- a/templates/headers/_display_headers.html.ep +++ b/templates/headers/_display_headers.html.ep @@ -71,9 +71,8 @@ %= ucfirst($msg->{is_multipart} ? l('yes') : l('no')); </td> <td> - % sub d { qr/([[:digit:]]{$_[0]})/ } - % my ($year,$mon,$mday,$hour,$min,$sec) = $msg->{date} =~ m/@{[d(4).'-'.d(2).'-'.d(2).'T'.d(2).':'.d(2).':'.d(2).'Z']}/; - %= join('/', $mday, $mon, $year) . " $hour:$min"; + % my $date = parse_iso_date $msg->{date}; + %= join('/', $date->{mday}, $date->{month}, $date->{year}) . " $date->{hour}:$date->{min}"; </td> <td> %= $msg->{from}->[0]->{name} || $msg->{from}->[0]->{email}; @@ -91,4 +90,4 @@ % } </tbody> -</table>
\ No newline at end of file +</table> |