- my $sth = FindList($otherlist, $sender);
- my ($sequence, $count);
-
- ($_, $_, $_, $_, $_, $sequence) = GetList($sth);
-
- if ($sequence) {
- $count = DeleteList($otherlist, $sequence);
+ 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,
+ );