From: Andrew DeFaria <Andrew@DeFaria.com>
Date: Sun, 18 Jul 2021 00:39:14 +0000 (-0700)
Subject: Fixed bug where it was reporting the number of entries with retention
X-Git-Url: https://defaria.com/gitweb/?a=commitdiff_plain;ds=sidebyside;h=0ace35bef5b69543b6444447a7acf9bed8a9efd6;p=clearscm.git

Fixed bug where it was reporting the number of entries with retention
---

diff --git a/maps/bin/mapsscrub.pl b/maps/bin/mapsscrub.pl
index 8ff4c51..91e77a8 100755
--- a/maps/bin/mapsscrub.pl
+++ b/maps/bin/mapsscrub.pl
@@ -119,7 +119,7 @@ while (my $rec = GetUser) {
 } # while
 
 # Now optimize the database
-if ($opts{optimized}) {
+if ($opts{optimize}) {
   OptimizeDB;
 
   $log->msg('Database optimized');
diff --git a/maps/lib/MAPS.pm b/maps/lib/MAPS.pm
index d63f9b9..705196e 100644
--- a/maps/lib/MAPS.pm
+++ b/maps/lib/MAPS.pm
@@ -544,6 +544,8 @@ sub CleanList(%) {
 
   return 0 unless $count;
 
+  $count = 0;
+
   my ($err, $errmsg) = $db->find($table, $condition);
 
   croak "Unable to find $params{type} entries for $condition - $errmsg" if $err;