- print
- start_Tr {-valign => 'middle'};
- print
- td {-class => 'tableborder'}, small ($next,
- checkbox {-name => "action$next",
- -label => ''}),
- hidden ({-name => "email$next",
- -default => $sender});
- print
- start_td {-align => 'left'};
- print
- start_table {-class => 'tablerightdata',
- -cellpadding => 2,
- -callspacing => 0,
- -border => 0,
- -width => '100%',
- -bgcolor => '#d4d0c8'};
- print
- td {-class => 'tablelabel',
- -valign => 'middle',
- -width => '40'}, 'Sender:',
- td {-class => 'sender',
- -valign => 'middle',
- -width => '40%'},
- a {-href => "mailto:$sender?subject=$msgs2[0][0]"}, $sender,
- td {
- -valign => 'middle'},
- $rule;
- print
- end_table;
-
- my $messages = 1;
-
- foreach (@msgs) {
- my $msg_date = pop @{$_};
- my $subject = pop @{$_};
-
- if ($date eq substr ($msg_date, 0, 10)) {
- $msg_date = b font {-color => 'green'}, SQLDatetime2UnixDatetime $msg_date;
+
+ # Start Sender line
+ my $rowspan = @$msgs + 1;
+
+ print start_Tr {-valign => 'middle'};
+ print td {
+ -class => 'tableborder',
+ -rowspan => $rowspan,
+ }, small ($next,
+ checkbox {
+ -name => "action$next",
+ -label => ''
+ }), hidden({
+ -name => "email$next",
+ -default => $sender
+ });
+
+ # Get subject line
+ $heading = "?subject=$heading" if $heading;
+
+ print td {
+ -class => 'sender',
+ }, a {
+ -href => "mailto:$sender$heading",
+ }, " $sender";
+
+ my $listlink = ($list and $sequence) ? "$list:$sequence" : ' ';
+
+ print td {
+ -class => 'tabledata',
+ -align => 'right',
+ }, a {
+ href => "/maps/php/list.php?type=$list&next=" . ($sequence - 1),
+ }, $listlink,
+ td {
+ -class => 'tabledata',
+ -align => 'right',
+ }, "$hit_count ",
+ td {
+ -class => 'tabledata',
+ }, $rule,
+ td {
+ -class => 'tablerightdata',
+ }, $comment;
+ print end_Tr;
+
+ for my $rec (@$msgs) {
+ if ($date eq substr ($rec->{timestamp}, 0, 10)) {
+ $rec->{date} = b font {-color => 'green'}, SQLDatetime2UnixDatetime $rec->{timestamp};