Webpacus/Action/Search.pm

use strict;
use warnings;

=head1 NAME

Webpacus::Action::Search

=cut

package Webpacus::Action::Search;
use base qw/Webpacus::Action Jifty::Action/;

use Data::Dump qw/dump/;
use Webpacus::Webpac;
use KinoSearch::Simple;

use Jifty::Param::Schema;
use Jifty::Action schema {

param field =>
        label is _("Field name"),
        available are defer {
                my $coll = Webpacus::Model::SearchCollection->new;
                $coll->unlimit;
                [ '', {  
                        display_from => 'name',
                        value_from => 'id',
                        collection => $coll,
                }];
        },
        render as 'Select';

param query =>
        label is _("Search for"),
        is mandatory;
        

};

sub sticky_on_success { 1 }
sub sticky_on_failure { 1 }

=head2 take_action

=cut

sub take_action {
        my $self = shift;

        my $search = Webpacus::Model::Search->load( $self->argument_value( 'field' ) );
        my $query = $self->argument_value( 'query' );

        warn "## search = ",dump( $search );

        my $index_path = Webpacus::Webpac->index_path;

        warn "## index_path = $index_path";

        my $index = KinoSearch::Simple->new(
                path => $index_path,
                language => 'en',
        );

        my $total_hits = $index->search(
                query      => $query,
                offset     => 0,
                num_wanted => 100,
        );

        my $message =
                _('Found') . " $total_hits " .
                _('results for') . " '$query'";
        
        $message .= " " . _('on field') . ' ' . $search->name if $search->name;

        $self->result->content(
                results => Webpacus::Search::Results->new({
                        count => $total_hits,
                        index => $index,
                }),
        );

        $self->result->message( $message );
    
        return 1;
}

package Webpacus::Search::Results;

use strict;
use warnings;
use base qw( Class::Accessor );
__PACKAGE__->mk_accessors( qw(
        count
        index
) );

use Data::Dump qw/dump/;

sub next {
        my $self = shift;
        my $row = $self->index->fetch_hit_hashref;

        warn "## next row = ", dump( $row );

        return $row;
}

1;

1	dpavlin	930	use strict;
2			use warnings;
3
4			=head1 NAME
5
6			Webpacus::Action::Search
7
8			=cut
9
10			package Webpacus::Action::Search;
11			use base qw/Webpacus::Action Jifty::Action/;
12
13			use Data::Dump qw/dump/;
14	dpavlin	934	use Webpacus::Webpac;
15			use KinoSearch::Simple;
16	dpavlin	930
17			use Jifty::Param::Schema;
18			use Jifty::Action schema {
19
20	dpavlin	931	param field =>
21	dpavlin	930	label is _("Field name"),
22			available are defer {
23			my $coll = Webpacus::Model::SearchCollection->new;
24			$coll->unlimit;
25			[ '', {
26			display_from => 'name',
27			value_from => 'id',
28			collection => $coll,
29			}];
30			},
31			render as 'Select';
32
33	dpavlin	931	param query =>
34	dpavlin	930	label is _("Search for"),
35			is mandatory;
36
37
38			};
39
40			sub sticky_on_success { 1 }
41			sub sticky_on_failure { 1 }
42
43			=head2 take_action
44
45			=cut
46
47			sub take_action {
48			my $self = shift;
49
50	dpavlin	931	my $search = Webpacus::Model::Search->load( $self->argument_value( 'field' ) );
51	dpavlin	934	my $query = $self->argument_value( 'query' );
52	dpavlin	930
53			warn "## search = ",dump( $search );
54
55	dpavlin	934	my $index_path = Webpacus::Webpac->index_path;
56
57			warn "## index_path = $index_path";
58
59			my $index = KinoSearch::Simple->new(
60			path => $index_path,
61			language => 'en',
62			);
63
64			my $total_hits = $index->search(
65			query => $query,
66			offset => 0,
67			num_wanted => 100,
68			);
69
70	dpavlin	931	my $message =
71	dpavlin	934	_('Found') . " $total_hits " .
72	dpavlin	940	_('results for') . " '$query'";
73
74			$message .= " " . _('on field') . ' ' . $search->name if $search->name;
75	dpavlin	930
76	dpavlin	935	$self->result->content(
77			results => Webpacus::Search::Results->new({
78			count => $total_hits,
79			index => $index,
80			}),
81			);
82	dpavlin	934
83	dpavlin	930	$self->result->message( $message );
84
85			return 1;
86			}
87
88	dpavlin	935	package Webpacus::Search::Results;
89
90			use strict;
91			use warnings;
92			use base qw( Class::Accessor );
93			__PACKAGE__->mk_accessors( qw(
94			count
95			index
96			) );
97
98			use Data::Dump qw/dump/;
99
100			sub next {
101			my $self = shift;
102			my $row = $self->index->fetch_hit_hashref;
103
104			warn "## next row = ", dump( $row );
105
106			return $row;
107			}
108
109	dpavlin	930	1;
110