% my $sort_param = begin % my $param = shift; % no warnings qw(experimental::smartmatch); %= do { given (param('sort')) { '↑' when ($param); '↓' when ('!' . $param) } } %= ucfirst l $param; % end %= $sort_param->('status'); %= $sort_param->('date'); % if ($folder ne "SENT") { %= $sort_param->('sender'); % } else { % } %= $sort_param->('subject'); %= $sort_param->('size'); % foreach my $msgnum ($first_item .. $last_item) { % my $msg = $msgs->[$msgnum - $first_item]; % }
<%= ucfirst l 'nr' %> <%= ucfirst l 'recipient' %> % if (param('sort') eq "sender") { v % } elsif (param('sort') eq "recipient_rev") { ^ % }
%= $msgnum %= ucfirst($msg->{is_multipart} ? l('yes') : l('no')); % my $date = parse_iso_date $msg->{head}{date}; %= join('/', $date->{mday}, $date->{month}, $date->{year}) . " $date->{hour}:$date->{min}"; %= $msg->{head}{from}[0]{name} || $msg->{head}{from}[0]{email}; <%= $msg->{head}{subject} || '_' %> %= print_sizes10 $msg->{size};