X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=maps%2Fbin%2FMAPSDB.pm;h=d4405f93e1676d2e0ee7f9862cf04dc42d737155;hb=ec9dcaa8edb34b1d8be0ce254423294f01ae48ab;hp=6fa6e9b3d8c8a38d58e2d2384f075b3d1fb0d669;hpb=d8b9c414c328fffc1c2bd39d452e6f5922c2c78c;p=clearscm.git

diff --git a/maps/bin/MAPSDB.pm b/maps/bin/MAPSDB.pm
index 6fa6e9b..d4405f9 100644
--- a/maps/bin/MAPSDB.pm
+++ b/maps/bin/MAPSDB.pm
@@ -206,10 +206,12 @@ sub RecordHit ($$$) {
   return;
 } # RecordHit
 
-sub CheckOnList ($$) {
+sub CheckOnList ($$;$) {
   # CheckOnList will check to see if the $sender is on the $listfile.
   # Return 1 if found 0 if not.
-  my ($listtype, $sender) = @_;
+  my ($listtype, $sender, $update) = @_;
+
+  $update //= 1;
 
   my $status   = 0;
   my $rule;
@@ -264,7 +266,7 @@ sub CheckOnList ($$) {
       $rule  .= " - $comment" if $comment and $comment ne '';
       $status = 1;
 
-      RecordHit $listtype, $sequence, ++$hit_count;
+      RecordHit $listtype, $sequence, ++$hit_count if $update;
 
       last;
     } # if