my $type = shift;
my $prev_button = $prev >= 0 ?
- a ({-href => "detail.cgi?type=$type;date=$date;next=$prev"},
- '<img src=/maps/images/previous.gif border=0 alt=Previous align=middle>') : '';
+ a ({-href => "detail.cgi?type=$type;date=$date;next=$prev",
+ -accesskey => 'p',
+ }, '<img src=/maps/images/previous.gif border=0 alt=Previous align=middle>') : '';
my $next_button = ($next + $lines) < $total ?
- a {-href => "detail.cgi?type=$type;date=$date;next=" . ($next + $lines)},
- '<img src=/maps/images/next.gif border=0 alt=Next align=middle>' : '';
+ a {-href => "detail.cgi?type=$type;date=$date;next=" . ($next + $lines),
+ -accesskey => 'n',
+ }, '<img src=/maps/images/next.gif border=0 alt=Next align=middle>' : '';
my $buttons = $prev_button;
foreach my $sender (ReturnSenders $userid, $type, $next, $lines, $date) {
my @msgs = ReturnMessages $userid, $sender;
+ my @msgs2 = @msgs;
$next++;
print
-width => '100%',
-bgcolor => '#d4d0c8'};
print
- td {-class => 'tablelabel',
- -valign => 'middle',
- -width => '40'}, 'Sender:',
- td {-class => 'sender',
- -valign => 'middle'},
- a {-href => "mailto:$sender"}, $sender;
+ td {-class => 'tablelabel',
+ -valign => 'middle',
+ -width => '40'}, 'Sender:',
+ td {-class => 'sender',
+ -valign => 'middle'},
+ a {-href => "mailto:$sender?subject=$msgs2[0][0]"}, $sender;
print
end_table;
-bgcolor => '#ffffff'},
a {-href => "display.cgi?sender=$sender;msg_nbr=$msg_nbr"}, $subject,
td {-class => 'date',
- -width => '130',
+ -width => '150',
-valign => 'middle'}, $msg_date
];
print end_table;