blob: c278a37e700254d59c925a4892dc8982c41edb3b (
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
|
% my $sort_param = begin
% my $param = shift;
<th class=sort-param>
%= 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
</th>
% end
<table id=mail-headers>
<colgroup>
<col width=5% />
<col width=10% />
<col width=15% />
<col width=25% />
<col width=25% />
<col width=10% />
<col width=10% />
</colgroup>
<thead>
<tr id=sort>
<th>
%= ucfirst l 'nr'
</th>
%= $sort_param->('status');
%= $sort_param->('date');
% if ($folder ne "SENT") {
%= $sort_param->('sender');
% }
% 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>
% }
%= $sort_param->('subject');
%= $sort_param->('size');
<th>
<!-- <img src="/chkb.gif"> -->
<input type=checkbox checked=1 disabled=1>
</th>
</tr>
</thead>
<tbody>
% foreach my $msgnum ($first_item .. $last_item) {
% my $msg = $msgs->[$msgnum - $first_item];
%= tag tr => (class => $msg->{new} ? 'new-mail' : '') => (id => $msg->{mid}) => begin
<td>
%= $msgnum
</td>
<td>
%= ucfirst($msg->{is_multipart} ? l('yes') : l('no'));
</td>
<td>
% my $date = parse_iso_date $msg->{head}{date};
%= join('/', $date->{mday}, $date->{month}, $date->{year}) . " $date->{hour}:$date->{min}";
</td>
<td>
%= $msg->{head}{from}[0]{name} || $msg->{head}{from}[0]{email};
</td>
<td>
%= link_to $msg->{head}{subject} || '_' => read => {id => $msg->{mid}}
</td>
<td>
%= print_sizes10 $msg->{size};
</td>
<td>
%= check_box mail => $msg->{mid} => (form => 'move-mail')
</td>
% end
% }
</tbody>
</table>
|
