- foreach my $otherlist ("white", "black") {
- my $sth = FindList $otherlist, $sender;
- my ($sequence, $count);
- ($_, $_, $_, $_, $_, $sequence) = GetList $sth;
- if (defined $sequence) {
- $count = DeleteList $otherlist, $sequence;
- } # if
- } # foreach
+ for my $otherlist ('white', 'black') {
+ FindList(
+ userid => $item->{userid},
+ type => $otherlist,
+ sender => $item->{sender}
+ );
+
+ my $seq = GetList;
+
+ if ($seq->{sequence}) {
+ my $count = DeleteList(
+ userid => $item->{userid},
+ type => $otherlist,
+ sequence => $seq->{sequence},
+ );
+
+ display "Removed $item->{sender} from ${Userid}'s " . ucfirst $otherlist . ' list'
+ if $count > 0;
+
+ ResequenceList(
+ userid => $item->{userid},
+ type => $otherlist,
+ );
+ } # if
+ } # for