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;

        push @attr, "$f ISTRINC $v";
        $q .= "$v ";
    }

    $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->{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	package Webpacus::Controller::Results;
2
3	use strict;
4	use warnings;
5	use base qw/Catalyst::Controller/;
6
7	=head1 NAME
8
9	Webpacus::Controller::Results - Display results from WebPAC
10
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	my $webpac = $c->comp('Model::WebPAC');
31	my $params = $c->req->params;
32	my $log = $c->log;
33
34	use Data::Dumper;
35	$log->debug("results got params: " . Dumper( $params ) );
36
37	my $q;
38	my @attr;
39
40	foreach my $f (keys %{ $params }) {
41
42	next if ($f =~ m/^_/o);
43
44	my $v = $params->{$f} \|\| next;
45
46	push @attr, "$f ISTRINC $v";
47	$q .= "$v ";
48	}
49
50	$c->stash->{html_results} = sub {
51	my $res = $webpac->search( $q, $params->{'_template'}, @attr );
52	# $log->debug("controller got " . ( $#{$res} + 1 ) . " results for '$q' " . Dumper( $res ));
53	return $res;
54	};
55
56	$c->stash->{template} = 'results.tt';
57	}
58
59	=back
60
61
62	=head1 AUTHOR
63
64	Dobrica Pavlinusic,,,
65
66	=head1 LICENSE
67
68	This library is free software, you can redistribute it and/or modify
69	it under the same terms as Perl itself.
70
71	=cut
72
73	1;