UNION statement to sort search results twice
am 11.02.2005 17:19:04 von Jan EdenHi,
I wrote a search script which can search only the page titles and author n=
ames for articles on my site or the titles/authors and the pages' content.
To get the results for the two types in two sets, I used a UNION construct:
if ($search_string) {
my $where_author_title =3D qq{(authors.last_name LIKE '\%$search_string=
\%' OR authors.first_name LIKE '\%$search_string\%' OR pages.title LIKE '\%=
$search_string\%')};
my $where_content =3D qq{MATCH(content) AGAINST ('$search_string' IN BO=
OLEAN MODE)};
=20
my @wheres =3D ( $where_author_title );
push @wheres, $where_content if $volltext;
my $query =3D join 'UNION', map(qq{(SELECT pages.page_id, pages.title, =
authors.first_name, authors.last_name, pages.visible, pages.user_id FROM pa=
ges JOIN authors USING (author_id) WHERE $_ AND site_id =3D $sitemode ORDER=
BY pages.title)}, @wheres);
Later on, I test each row returned by the UNION statement if the $search_st=
ring is either in the title or in the author's name. If not, I print a divi=
ding line and a subheader once.
The result looks ok, something like:
Search results for 'Perl'
Title/author
..
..
..
Content
..
..
..
Now is there a better/more elegant way to do this? I am sure there is, and =
I would be grateful for a pointer.
Thanks,
Jan
--=20
Hanlon's Razor: Never attribute to malice that which can be adequately expl=
ained by stupidity.
--
MySQL Perl Mailing List
For list archives: http://lists.mysql.com/perl
To unsubscribe: http://lists.mysql.com/perl?unsub=3Dgcdmp-msql-mysql-modules @m.gmane.org