X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=maps%2Fbin%2Fdetail.cgi;h=622c148620d0c6c5c6cdff23bfe024390b0b12ad;hb=5995b6839f7e566dbe9cd137ddd42343b28418b2;hp=85ecb4958560e4441cbd9dde911de4c367f014a2;hpb=49b3d4933c2fcfd5a2665a4ffb9cb7ccd0184c10;p=clearscm.git diff --git a/maps/bin/detail.cgi b/maps/bin/detail.cgi index 85ecb49..622c148 100755 --- a/maps/bin/detail.cgi +++ b/maps/bin/detail.cgi @@ -173,6 +173,19 @@ sub PrintTable { 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 start_Tr {-valign => 'middle'}; @@ -180,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'}; @@ -196,8 +209,12 @@ sub PrintTable { -valign => 'middle', -width => '40'}, 'Sender:', td {-class => 'sender', + -valign => 'middle', + -width => '50%'}, + a {-href => "mailto:$sender?subject=$msgs2[0][0]"}, $sender, + td { -valign => 'middle'}, - a {-href => "mailto:$sender?subject=$msgs2[0][0]"}, $sender; + $rule; print end_table;