X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=maps%2Fbin%2Fdetail.cgi;h=b4c3e902e8e0251938ce366e42d4db434dffef13;hb=8af32b28b56662686b6ceb59f2e00dc19cfc7a33;hp=12abc731324c64765f32aac5ec8de0aedd6da69e;hpb=e01a0154aa68c56ffa206646041ea7a965ad93cc;p=clearscm.git

diff --git a/maps/bin/detail.cgi b/maps/bin/detail.cgi
index 12abc73..b4c3e90 100755
--- a/maps/bin/detail.cgi
+++ b/maps/bin/detail.cgi
@@ -11,7 +11,8 @@
 #
 # (c) Copyright 2000-2006, Andrew@DeFaria.com, all rights reserved.
 #
-################################################################################use strict;
+################################################################################
+use strict;
 use warnings;
 
 use MIME::Words qw(:all);
@@ -173,17 +174,17 @@ sub PrintTable {
   foreach my $sender (ReturnSenders $userid, $type, $next, $lines, $date) {
     my @msgs = ReturnMessages $userid, $sender;
     my @msgs2 = @msgs;
+    my $onlist;
+    my $rule      = 'none';
+    my $hit_count = 0;
 
-    my ($onlist, $rule);
-    $rule = 'none';
-
-    ($onlist, $rule) = OnWhitelist $sender;
+    ($onlist, $rule, $hit_count) = OnWhitelist $sender, $userid, 0;
 
     unless ($onlist) {
-      ($onlist, $rule) = OnBlacklist $sender;
+      ($onlist, $rule, $hit_count) = OnBlacklist $sender, 0;
 
       unless ($onlist) {
-        ($onlist, $rule) = OnNulllist $sender;
+        ($onlist, $rule, $hit_count) = OnNulllist $sender, 0;
       } # unless
     } # unless
 
@@ -194,7 +195,7 @@ sub PrintTable {
       if ($rule =~ /(\w+):(\d+)/) {
         my $list     = $1;
         my $sequence = $2 - 1;
-        my $link     = "<a href=\"/maps/php/list.php?type=$list&next=$sequence\">$list:$2</a>";
+        my $link     = "<a href=\"/maps/php/list.php?type=$list&next=$sequence\">$list:$2</a>/$hit_count";
 
         $rule =~ s/\w+:\d+/$link/;
       } # if
@@ -294,6 +295,7 @@ sub PrintTable {
 } # PrintTable
 
 # Main
+my $condition;
 my @scripts = ('ListActions.js');
 
 my $heading_date =$date ne '' ? ' on ' . FormatDate ($date) : '';