Commit 36311a0d authored by Xavier Guimard's avatar Xavier Guimard

Better "missing conf to delete" log

parent ac5f76f8
......@@ -87,8 +87,13 @@ sub unlock {
sub delete {
my ( $self, $cfgNum ) = @_;
$self->_dbh->do( "DELETE from " . $self->{dbiTable} . " WHERE cfgNum=?",
{}, $cfgNum );
my $req =
$self->_dbh->prepare("DELETE FROM $self->{dbiTable} WHERE cfgNum=?");
my $res = $req->execute($cfgNum);
$Lemonldap::NG::Common::Conf::msg .=
"Unable to find conf $cfgNum (" . $self->_dbh->errstr . ")"
unless ($res);
return $res;
}
sub logError {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment