Webpacus/Controller/Search.pm

package Webpacus::Controller::Search;

use strict;
use warnings;
use base 'Catalyst::Controller';

use lib '/data/webpac2/lib';
use WebPAC::Search::Estraier;

=head1 NAME

Webpacus::Controller::Search - Catalyst Controller

=head1 SYNOPSIS

See L<Webpacus>

=head1 DESCRIPTION

Catalyst Controller for autocompleting search fields.

=head1 METHODS

=over 4

=item default

=cut

sub default : Private {
    my ( $self, $c ) = @_;
    $c->stash->{template} = 'search.tt';
}

=item suggest

Returns results for URLs like C<search/suggest/FieldName>

=cut

sub suggest : Regex('^search/suggest/*([^/]*)') {
        my ( $self, $c ) = @_;

        my $what = $c->request->snippets->[0];

        my $log = $c->log;

        my $est_conf = $c->config->{hyperestraier};
        $est_conf->{log} = $c->log;

        my $est = new WebPAC::Search::Estraier( %{ $est_conf } );

        my $q = $c->req->params->{$what} ||
                $c->req->params->{all} || $c->res->output("no results");


        $log->info("search for '$q' in $what\n");

        my $max = $est_conf->{'hits_for_suggest'};
        if (! $max) {
                $log->info("hits_for_suggest isn't defined, defaulting to 10");
                $c->config->{'hits_for_suggest'} = 10;
                $max = 10;
        }

        my @hits = $est->search( phrase => $q, max => $max, get_attr => [ $what ] );

        my $used;
        my @suggestions;

        foreach my $res (@hits) {
                my $v = $res->{ $what } || next;
                next if ($used->{ $v }++);
                push @suggestions, $v;
        }

        $log->debug( ($#suggestions + 1) . " unique hits returned");

        $c->res->body( $c->prototype->auto_complete_result( \@suggestions ) );
}

=back


=head1 AUTHOR

Dobrica Pavlinusic,,,

=head1 LICENSE

This library is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

1;
1	dpavlin	109	package Webpacus::Controller::Search;
2
3			use strict;
4			use warnings;
5			use base 'Catalyst::Controller';
6
7			use lib '/data/webpac2/lib';
8			use WebPAC::Search::Estraier;
9
10			=head1 NAME
11
12			Webpacus::Controller::Search - Catalyst Controller
13
14			=head1 SYNOPSIS
15
16			See L<Webpacus>
17
18			=head1 DESCRIPTION
19
20			Catalyst Controller for autocompleting search fields.
21
22			=head1 METHODS
23
24			=over 4
25
26			=item default
27
28			=cut
29
30			sub default : Private {
31			my ( $self, $c ) = @_;
32			$c->stash->{template} = 'search.tt';
33			}
34
35			=item suggest
36
37			Returns results for URLs like C<search/suggest/FieldName>
38
39			=cut
40
41			sub suggest : Regex('^search/suggest/([^/])') {
42	dpavlin	143	my ( $self, $c ) = @_;
43	dpavlin	109
44	dpavlin	143	my $what = $c->request->snippets->[0];
45	dpavlin	109
46	dpavlin	143	my $log = $c->log;
47	dpavlin	109
48	dpavlin	143	my $est_conf = $c->config->{hyperestraier};
49			$est_conf->{log} = $c->log;
50	dpavlin	109
51	dpavlin	143	my $est = new WebPAC::Search::Estraier( %{ $est_conf } );
52	dpavlin	117
53	dpavlin	143	my $q = $c->req->params->{$what} \|\|
54			$c->req->params->{all} \|\| $c->res->output("no results");
55	dpavlin	109
56	dpavlin	143
57	dpavlin	109	$log->info("search for '$q' in $what\n");
58
59	dpavlin	143	my $max = $est_conf->{'hits_for_suggest'};
60			if (! $max) {
61			$log->info("hits_for_suggest isn't defined, defaulting to 10");
62			$c->config->{'hits_for_suggest'} = 10;
63			$max = 10;
64			}
65	dpavlin	109
66	dpavlin	143	my @hits = $est->search( phrase => $q, max => $max, get_attr => [ $what ] );
67	dpavlin	109
68	dpavlin	143	my $used;
69			my @suggestions;
70
71			foreach my $res (@hits) {
72			my $v = $res->{ $what } \|\| next;
73			next if ($used->{ $v }++);
74			push @suggestions, $v;
75			}
76
77			$log->debug( ($#suggestions + 1) . " unique hits returned");
78
79			$c->res->body( $c->prototype->auto_complete_result( \@suggestions ) );
80	dpavlin	109	}
81
82			=back
83
84
85			=head1 AUTHOR
86
87			Dobrica Pavlinusic,,,
88
89			=head1 LICENSE
90
91			This library is free software, you can redistribute it and/or modify
92			it under the same terms as Perl itself.
93
94			=cut
95
96			1;