Webpacus/Controller/Results.pm

package Webpacus::Controller::Results;

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

=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;

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

    my $q;
    my @attr;

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

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

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

        $q .= "$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);
        }
    }

    # strip spaces from beginning and end
    $q =~ s/^\s+//;
    $q =~ s/\s+$//;

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

    $c->stash->{phrase} = $q;

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