loncom/interface/lonmysql.pm - diff

Return to lonmysql.pm CVS log

Up to [LON-CAPA] / loncom / interface

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;
}	}