version 1.16, 2003/12/26 19:12:51
|
version 1.17, 2003/12/27 01:44:49
|
Line 1002 sub remove_from_table {
|
Line 1002 sub remove_from_table {
|
return undef if (!defined(&connect_to_db())); |
return undef if (!defined(&connect_to_db())); |
# |
# |
$table_id = &translate_id($table_id); |
$table_id = &translate_id($table_id); |
my $command = 'DELETE FROM '.$table_id.' WHERE '.$dbh->quote($column). |
my $command = 'DELETE FROM '.$table_id.' WHERE '.$column. |
" LIKE BINARY ".$dbh->quote($value); |
" LIKE BINARY ".$dbh->quote($value); |
my $sth = $dbh->prepare($command); |
my $sth = $dbh->prepare($command); |
$sth->execute(); |
unless ($sth->execute()) { |
if ($sth->err) { |
|
$errorstring = "ERROR on execution of ".$command."\n".$sth->errstr; |
$errorstring = "ERROR on execution of ".$command."\n".$sth->errstr; |
return undef; |
return undef; |
} |
} |