Fixed bug in detail.cgi
authorAndrew DeFaria <Andrew@DeFaria.com>
Tue, 23 Jan 2018 22:06:41 +0000 (14:06 -0800)
committerAndrew DeFaria <Andrew@DeFaria.com>
Tue, 23 Jan 2018 22:06:41 +0000 (14:06 -0800)
maps/bin/detail.cgi

index b4c3e90..2da6965 100755 (executable)
@@ -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;
+    my ($onlist, $seq);
     my $rule      = 'none';
     my $hit_count = 0;
 
-    ($onlist, $rule, $hit_count) = OnWhitelist $sender, $userid, 0;
+    ($onlist, $rule, $seq, $hit_count) = OnWhitelist $sender, $userid, 0;
 
     unless ($onlist) {
-      ($onlist, $rule, $hit_count) = OnBlacklist $sender, 0;
+      ($onlist, $rule, $seq, $hit_count) = OnBlacklist $sender, 0;
 
       unless ($onlist) {
-        ($onlist, $rule, $hit_count) = OnNulllist $sender, 0;
+        ($onlist, $rule, $seq, $hit_count) = OnNulllist $sender, 0;
       } # unless
     } # unless