blob: ad60fc66d8f859d50a7576fe34c1d872686d610f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
% my $sort_param = begin
% my $param = shift;
%= link_to url_with->query(sort => $param eq (param('sort') || '') ? '!' . $param : $param) => begin
% no warnings qw(experimental::smartmatch);
%= do { given (param('sort')) { '↑' when ($param); '↓' when ('!' . $param) } }
%= ucfirst l $param;
% end
% end
<table id=mail-headers class="pure-table pure-table-horizontal">
<thead>
<tr id=sort>
<th class="hide-small">
#
</th>
<th>
<div class="pure-g">
%# $sort_param->('status');
<div class="pure-u-8-24 pure-u-md-4-24">
%= $sort_param->('date');
</div>
% if ($folder ne "SENT") {
<div class="pure-u-16-24 pure-u-md-6-24">
%= $sort_param->('sender');
</div>
% }
% else {
<th class=sort-param>
%= link_to url_with->query(sort => param('sort') ne '!sender' ? 'sender' : '!sender' ) => begin
%= ucfirst l 'recipient'
% if (param('sort') eq "sender") {
%= image '/down.gif' => (width => 12) => (height => 12) => (border => 0) => (alt => 'v')
% }
% elsif (param('sort') eq "recipient_rev") {
%= image '/up.gif' => (width => 12) => (height => 12) => (border => 0) => (alt => '^')
% }
% end
</th>
% }
<div class="pure-u-20-24 pure-u-md-12-24">
%= $sort_param->('subject');
</div>
<div class="pure-u-4-24 pure-u-md-2-24">
%= $sort_param->('size');
</div>
</div>
</th>
<th>
<input type=checkbox checked=1 disabled=1>
</th>
</tr>
</thead>
<tbody>
% foreach my $msgnum ($pgn->{first_item} .. $pgn->{last_item}) {
% my $msg = $msgs->[$msgnum - $pgn->{first_item}];
%= tag tr => (class => $msg->{unread} ? 'new-mail' : '') => (id => $msg->{message_handle}) => begin
<td class="hide-small">
%= $msgnum + 1
</td>
<td>
<div class="pure-g">
<!--
<div class="pure-u-1-4">
%# ucfirst($msg->{head}{mime}{content_maintype} eq 'multipart' ? l('yes') : l('no'));
</div>
-->
<div class="pure-u-8-24 pure-u-md-4-24">
% my $date = parse_iso_date $msg->{head}{date};
%= join('/', $date->{mday}, $date->{month}, $date->{year}) . " $date->{hour}:$date->{min}";
</div>
<div class="pure-u-16-24 pure-u-md-6-24">
<%= $msg->{head}{sender}[0]{display_name} || $msg->{head}{sender}[0]{address} ||
$msg->{head}{from}[0]{display_name} || $msg->{head}{from}[0]{address}; %>
</div>
<div class="pure-u-20-24 pure-u-md-12-24">
%= link_to $msg->{head}{subject} || '_' => read => {id => $msg->{message_handle}}
</div>
<div class="pure-u-4-24 pure-u-md-2-24">
%= print_sizes10 $msg->{byte_size};
</div>
</div>
</td>
<td>
%= check_box mail => $msg->{message_handle} => (form => 'move-mail')
</td>
% end
% }
</tbody>
</table>
|
