my $tables = [ qw/ starting_point_topics related_topics other_topics / ];
my $results = {};
foreach my $table (@{$tables}) {

	my $query = qq{ SELECT res.* FROM res,$table,topics WHERE $query_temp ORDER BY `rank` DESC };
	Library::Data::Res->set_sql(full_text => $query);
	$results->{$table} = Library::Data::Res->search_full_text;
}

##</code><code>##

 SELECT 
	res.* 
FROM 
	res,starting_point_topics,topics 
WHERE
	((starting_point_topics.res = res.id)
AND
	(starting_point_topics.topic = topics.id)
AND
	(topics.name LIKE '%'))

##</code><code>##

search_full_text() already exists at /data/web/perl/lib/Library/Results.pm line 95
                                 ORDER BY `rank` DESC SELECT res.* FROM res,related_topics,topics WHERE
                                        ((starting_point_topics.res = res.id)
                                        AND
                                        (starting_point_topics.topic = topics.id)
                                        AND
                                        (topics.name LIKE '%'))
                                 AND
                                        ((related_topics.res = res.id)
                                        AND
                                        (related_topics.topic = topics.id)
                                        AND
                                        (topics.name LIKE '%'))