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 (executable)
--- 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 (file)
--- 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;