Webpacus/Controller/Results.pm

package Webpacus::Controller::Results;

use strict;
use warnings;
use base qw/Catalyst::Controller/;
use Data::Dumper;

=head1 NAME

Webpacus::Controller::Results - Display results from WebPAC

=head1 SYNOPSIS

See L<Webpacus>

=head1 DESCRIPTION

Catalyst Controller.

=head1 METHODS

=over 4

=item default

=cut

sub default : Private {
    my ( $self, $c ) = @_;

    my $webpac = $c->comp('Model::WebPAC');
    my $params = $c->req->params;
    my $log = $c->log;

    $log->debug("results got params: " . Dumper( $params ) );

    my @attr;
    my @words;
    # default operator to join fields/words
    my $operator = 'AND';

    foreach my $f (keys %{ $params }) {

        next if ($f =~ m/^_/o);

        my $v = $params->{$f} || next;

        if (my $op = $params->{ '_' . $f}) {
                push @words, join(" $op ", split(/\s+/, $v) );
        } else {
                push @words, $v;
        }

        next if ($f eq 'all');  # don't add_attr for magic field all

        if ($v !~ /\s/) {
                push @attr, "$f ISTRINC $v";
        } else {
                map { push @attr, "$f ISTRINC $_"; } split(/\s+/, $v);
        }
    }

        my $q = join(" $operator ", @words);

        my $template = $params->{'_template'};
        $log->debug("using template $template");

    $c->stash->{html_results} = sub {
        my $res = $webpac->search( $q, $template, \@attr );
#       $log->debug("controller got " . ( $#{$res} + 1 ) . " results for '$q' " . Dumper( $res ));
        return $res;
    };

    $c->stash->{phrase} = $q;
    $c->stash->{attr} = \@attr;

    $c->stash->{template} = 'results.tt';
}

=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	83	package Webpacus::Controller::Results;
2
3			use strict;
4			use warnings;
5	dpavlin	97	use base qw/Catalyst::Controller/;
6	dpavlin	133	use Data::Dumper;
7	dpavlin	83
8			=head1 NAME
9
10	dpavlin	97	Webpacus::Controller::Results - Display results from WebPAC
11	dpavlin	83
12			=head1 SYNOPSIS
13
14			See L<Webpacus>
15
16			=head1 DESCRIPTION
17
18			Catalyst Controller.
19
20			=head1 METHODS
21
22			=over 4
23
24			=item default
25
26			=cut
27
28			sub default : Private {
29			my ( $self, $c ) = @_;
30
31	dpavlin	93	my $webpac = $c->comp('Model::WebPAC');
32			my $params = $c->req->params;
33			my $log = $c->log;
34	dpavlin	83
35	dpavlin	99	$log->debug("results got params: " . Dumper( $params ) );
36	dpavlin	93
37	dpavlin	94	my @attr;
38	dpavlin	130	my @words;
39	dpavlin	133	# default operator to join fields/words
40			my $operator = 'AND';
41	dpavlin	94
42			foreach my $f (keys %{ $params }) {
43	dpavlin	98
44	dpavlin	94	next if ($f =~ m/^_/o);
45	dpavlin	98
46			my $v = $params->{$f} \|\| next;
47
48	dpavlin	133	if (my $op = $params->{ '_' . $f}) {
49			push @words, join(" $op ", split(/\s+/, $v) );
50			} else {
51			push @words, $v;
52			}
53	dpavlin	118
54			next if ($f eq 'all'); # don't add_attr for magic field all
55
56			if ($v !~ /\s/) {
57			push @attr, "$f ISTRINC $v";
58			} else {
59			map { push @attr, "$f ISTRINC $_"; } split(/\s+/, $v);
60			}
61	dpavlin	94	}
62
63	dpavlin	133	my $q = join(" $operator ", @words);
64	dpavlin	129
65	dpavlin	139	my $template = $params->{'_template'};
66			$log->debug("using template $template");
67
68	dpavlin	100	$c->stash->{html_results} = sub {
69	dpavlin	139	my $res = $webpac->search( $q, $template, \@attr );
70	dpavlin	101	# $log->debug("controller got " . ( $#{$res} + 1 ) . " results for '$q' " . Dumper( $res ));
71	dpavlin	94	return $res;
72	dpavlin	93	};
73
74	dpavlin	129	$c->stash->{phrase} = $q;
75	dpavlin	130	$c->stash->{attr} = \@attr;
76	dpavlin	129
77	dpavlin	83	$c->stash->{template} = 'results.tt';
78			}
79
80			=back
81
82
83			=head1 AUTHOR
84
85			Dobrica Pavlinusic,,,
86
87			=head1 LICENSE
88
89			This library is free software, you can redistribute it and/or modify
90			it under the same terms as Perl itself.
91
92			=cut
93
94			1;