X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=maps%2Fbin%2Fdetail.cgi;h=2da6965042e8f06df7bce646446b2658d51ccd71;hb=54fdcfd0cdc71457e3fae07fa28854546cf46e70;hp=646f51e7f37979c961fb18e33c6efe80e93abeef;hpb=12005924b97cde62e3b2f2ddc2c50aa22661a190;p=clearscm.git
diff --git a/maps/bin/detail.cgi b/maps/bin/detail.cgi
index 646f51e..2da6965 100755
--- a/maps/bin/detail.cgi
+++ b/maps/bin/detail.cgi
@@ -174,17 +174,17 @@ sub PrintTable {
foreach my $sender (ReturnSenders $userid, $type, $next, $lines, $date) {
my @msgs = ReturnMessages $userid, $sender;
my @msgs2 = @msgs;
+ my ($onlist, $seq);
+ my $rule = 'none';
+ my $hit_count = 0;
- my ($onlist, $rule);
- $rule = 'none';
-
- ($onlist, $rule) = OnWhitelist $sender, $userid, 0;
+ ($onlist, $rule, $seq, $hit_count) = OnWhitelist $sender, $userid, 0;
unless ($onlist) {
- ($onlist, $rule) = OnBlacklist $sender, 0;
+ ($onlist, $rule, $seq, $hit_count) = OnBlacklist $sender, 0;
unless ($onlist) {
- ($onlist, $rule) = OnNulllist $sender, 0;
+ ($onlist, $rule, $seq, $hit_count) = OnNulllist $sender, 0;
} # unless
} # unless
@@ -195,7 +195,7 @@ sub PrintTable {
if ($rule =~ /(\w+):(\d+)/) {
my $list = $1;
my $sequence = $2 - 1;
- my $link = "$list:$2";
+ my $link = "$list:$2/$hit_count";
$rule =~ s/\w+:\d+/$link/;
} # if