I changed things around a little bit to this:
foreach ($ID_q = (@in{'ID'})) {
$query = qq!
UPDATE $db_comments SET messageflag = '1'
WHERE ID = $ID_q
!;
$rc = $DBH->do($query);
$rc ?
($message_q = "Message Flagged.") :
($message_q = "Error Flagging Message. Reason: $DBI::errstr");
}
Doing it that way works as far as flagging 1 of the messages, but I still don't think it's getting all of the values. :(
foreach ($ID_q = (@in{'ID'})) {
$query = qq!
UPDATE $db_comments SET messageflag = '1'
WHERE ID = $ID_q
!;
$rc = $DBH->do($query);
$rc ?
($message_q = "Message Flagged.") :
($message_q = "Error Flagging Message. Reason: $DBI::errstr");
}
Doing it that way works as far as flagging 1 of the messages, but I still don't think it's getting all of the values. :(