- -align => "center"},
- (checkbox {-name => "action$next",
- -label => ""}),
- hidden ({-name => "email$next",
- -default => $sender}),
- td {-class => "sender"},
- a {-href => "mailto:$sender"}, $display_sender,
- td {-class => "subject"},
- a {-href => "display.cgi?sender=$sender"}, $subject,
- td {-class => "dateright",
- -width => "115"}, SQLDatetime2UnixDatetime $date
+ -align => "center"},
+ (checkbox {-name => "action$next",
+ -label => ""}),
+ hidden ({-name => "email$next",
+ -default => $rec->{sender}}),
+ td {-class => "sender"},
+ a {-href => "mailto:$rec->{sender}"}, $display_sender,
+ td {-class => "subject"},
+ a {-href => "display.cgi?sender=$rec->{sender}"}, $rec->{subject},
+ td {-class => "dateright",
+ -width => "115"}, SQLDatetime2UnixDatetime $rec->{timestamp},
+ ];
+ } # for
+
+ print
+ Tr [
+ td {-class => 'tableborderbottomleft'}, ' ',
+ td {-class => 'tableborder'}, ' ',
+ td {-class => 'tableborder'}, ' ',
+ td {-class => 'tableborderbottomright'}, ' '