Bingo.
Try this:
my @list = split '~~', $in{ID};
my $query = qq!UPDATE $db_comments SET messageread = '0' WHERE ID IN(! . join(', ', map $DBH->quote($_), @list) . qq!)!;
return $DBH->do($query) ?
&html_view_messages("User updated.") :
&html_view_messages("Error updating user. Reason: $DBI::errstr");
}
Try this:
Code:
sub mark_unread { my @list = split '~~', $in{ID};
my $query = qq!UPDATE $db_comments SET messageread = '0' WHERE ID IN(! . join(', ', map $DBH->quote($_), @list) . qq!)!;
return $DBH->do($query) ?
&html_view_messages("User updated.") :
&html_view_messages("Error updating user. Reason: $DBI::errstr");
}