Select Code to Download

my $tables = [ qw/ starting_point_topics related_topics other_topics /
+ ];
my $results = {};
...
    Library::Data::Res->set_sql(full_text => $query);
    $results->{$table} = Library::Data::Res->search_full_text;
}

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

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