projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed ShowEmail
[clearscm.git]
/
maps
/
bin
/
add2nulllist.pl
diff --git
a/maps/bin/add2nulllist.pl
b/maps/bin/add2nulllist.pl
index
13324d9
..
82a3714
100755
(executable)
--- a/
maps/bin/add2nulllist.pl
+++ b/
maps/bin/add2nulllist.pl
@@
-69,7
+69,7
@@
sub Add2List(@) {
my ($status, $rule) = OnNulllist($item->{sender}, $userid);
my ($status, $rule) = OnNulllist($item->{sender}, $userid);
- if ($status
== 0
) {
+ if ($status) {
display ' Already on list';
} else {
my ($message, $msg) = Add2Nulllist(%$item);
display ' Already on list';
} else {
my ($message, $msg) = Add2Nulllist(%$item);
@@
-88,16
+88,16
@@
sub Add2List(@) {
if ($seq->{sequence}) {
my $count = DeleteList(
if ($seq->{sequence}) {
my $count = DeleteList(
- userid => $item->{userid}
+ userid => $item->{userid}
,
type => $otherlist,
type => $otherlist,
- sequence => $seq->{sequence}
+ sequence => $seq->{sequence}
,
);
display "Removed $item->{sender} from ${Userid}'s " . ucfirst $otherlist . ' list'
if $count > 0;
ResequenceList(
);
display "Removed $item->{sender} from ${Userid}'s " . ucfirst $otherlist . ' list'
if $count > 0;
ResequenceList(
- userid => $
rec
{userid},
+ userid => $
item->
{userid},
type => $otherlist,
);
} # if
type => $otherlist,
);
} # if