Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Ugh, stray $

Browse Source
This commit is contained in:
Chris 2012-08-15 14:55:01 +01:00
parent 8c72f9cf5d
commit d84c784ab9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Message/Queue.pm
View File

@ -573,7 +573,7 @@ sub _delete_by_id {
# Otherwise, nobody is marked as having seen the message, if it hasn't been sent, mark it as deleted # Otherwise, nobody is marked as having seen the message, if it hasn't been sent, mark it as deleted
my $nukeh = $self -> {"dbh"} -> prepare("UPDATE `".$self -> {"settings"} -> {"database"} -> {"message_queue"}."` my $nukeh = $self -> {"dbh"} -> prepare("UPDATE `".$self -> {"settings"} -> {"database"} -> {"message_queue"}."`
SET deleted = ?, deleted_id = ? SET deleted = ?, deleted_id = ?
WHERE $id = ? WHERE id = ?
AND deleted IS NULL"); AND deleted IS NULL");
my $result = $nukeh -> execute($deleted, $userid, $messageid); my $result = $nukeh -> execute($deleted, $userid, $messageid);
return $self -> self_error("Unable to perform message delete: ". $self -> {"dbh"} -> errstr) if(!$result); return $self -> self_error("Unable to perform message delete: ". $self -> {"dbh"} -> errstr) if(!$result);