sub sql_escape 
{
	my $text = shift;
	$text = DBD::_::db->quote ($text);
	return $text;
}