X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=maps%2Fbin%2Fdetail.cgi;h=622c148620d0c6c5c6cdff23bfe024390b0b12ad;hb=5995b6839f7e566dbe9cd137ddd42343b28418b2;hp=de7fd29c1d4638501b7646cb885f0574f6ce1ca7;hpb=020a4a5ea2be725b155cae3a2cadc9aba3911b9b;p=clearscm.git

diff --git a/maps/bin/detail.cgi b/maps/bin/detail.cgi
index de7fd29..622c148 100755
--- a/maps/bin/detail.cgi
+++ b/maps/bin/detail.cgi
@@ -75,11 +75,13 @@ sub MakeButtons {
   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;
 
@@ -169,6 +171,20 @@ sub PrintTable {
 
   foreach my $sender (ReturnSenders $userid, $type, $next, $lines, $date) {
     my @msgs = ReturnMessages $userid, $sender;
+    my @msgs2 = @msgs;
+
+    my ($onlist, $rule);
+    $rule = 'none';
+
+    ($onlist, $rule) = OnNulllist $sender;
+
+    unless ($onlist) {
+      ($onlist, $rule) = OnBlacklist $sender;
+
+      unless ($onlist) {
+        ($onlist, $rule) = OnWhitelist $sender;
+      } # unless
+    } # unless
 
     $next++;
     print
@@ -177,7 +193,7 @@ sub PrintTable {
       td {-class => 'tableborder'}, small ($next,
         checkbox {-name  => "action$next",
                   -label => ''}),
-          hidden ({-name     => "email$next",
+          hidden ({-name    => "email$next",
                    -default => $sender});
     print
       start_td {-align => 'left'};
@@ -189,12 +205,16 @@ sub PrintTable {
                    -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',
+          -width   => '50%'},
+        a {-href   => "mailto:$sender?subject=$msgs2[0][0]"}, $sender,
+      td {
+          -valign  => 'middle'},
+          $rule;
     print
       end_table;
 
@@ -236,7 +256,7 @@ sub PrintTable {
               -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;