$subst->{'delete'}->{'error'} = 1 if ! defined($J->{$K});
}
$count += delete_topic($J) if defined($J);
topic_manager($FORMref, $username, { what => 1, count => $count });
} elsif ($selection eq "a") {
my @q = grep ($type->{$_} == 1, keys(%p));
error_message("Topic Privilege Assign Error", "You must select at least one topic to assign privileges (categories don't have privileges).", 0, 1) if scalar(@q) == 0;