X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=maps%2Fbin%2Fadd2nulllist.pl;h=82a371427487a7bdfc4c2b58564ae5705b0cf9d4;hb=d3c598399f93a1ca4ffc9f4aedd7907f4157ca43;hp=70a47607d678c6c1c3d6ff27198346d4564edf85;hpb=ae9e57b169de143d2b8a7c761c3bf7394385e0d0;p=clearscm.git

diff --git a/maps/bin/add2nulllist.pl b/maps/bin/add2nulllist.pl
index 70a4760..82a3714 100755
--- a/maps/bin/add2nulllist.pl
+++ b/maps/bin/add2nulllist.pl
@@ -4,7 +4,8 @@ use warnings;
 
 use FindBin;
 
-use lib "$FindBin::Bin/../lib", '/opt/clearscm/lib';
+use lib "$FindBin::Bin/../lib";
+use lib "$FindBin::Bin/../../lib";
 
 use MAPS;
 use MAPSLog;
@@ -68,7 +69,7 @@ sub Add2List(@) {
 
     my ($status, $rule) = OnNulllist($item->{sender}, $userid);
 
-    if ($status == 0) {
+    if ($status) {
       display ' Already on list';
     } else {
       my ($message, $msg) = Add2Nulllist(%$item);
@@ -87,16 +88,16 @@ sub Add2List(@) {
 
         if ($seq->{sequence}) {
           my $count = DeleteList(
-            userid   => $item->{userid}
+            userid   => $item->{userid},
             type     => $otherlist,
-            sequence => $seq->{sequence}
+            sequence => $seq->{sequence},
           );
 
           display "Removed $item->{sender} from ${Userid}'s " . ucfirst $otherlist . ' list'
             if $count > 0;
 
           ResequenceList(
-            userid => $rec{userid},
+            userid => $item->{userid},
             type   => $otherlist,
           );
         } # if