4 |
use warnings; |
use warnings; |
5 |
use base 'Catalyst::Controller'; |
use base 'Catalyst::Controller'; |
6 |
|
|
|
use Data::Dumper; |
|
|
|
|
7 |
use lib '/data/webpac2/lib'; |
use lib '/data/webpac2/lib'; |
8 |
use WebPAC::Search::Estraier 0.03; |
use WebPAC::Search::Estraier 0.03; |
9 |
|
|
31 |
sub default : Private { |
sub default : Private { |
32 |
my ( $self, $c ) = @_; |
my ( $self, $c ) = @_; |
33 |
|
|
34 |
$c->log->debug("default search got param: ".Dumper($c->req->params)); |
$c->log->dumper($c->req->params, 'params'); |
35 |
|
|
36 |
$c->stash->{template} = 'search.tt'; |
$c->stash->{template} = 'search.tt'; |
37 |
} |
} |
62 |
my $log = $c->log; |
my $log = $c->log; |
63 |
|
|
64 |
my $webpac = $c->comp('Model::WebPAC'); |
my $webpac = $c->comp('Model::WebPAC'); |
65 |
$c->log->debug( "stash: ", Dumper($c->stash) ); |
$c->log->dumper( $c->stash, 'stash' ); |
66 |
$webpac->setup_site( $c->stash->{site} ); |
$webpac->setup_site( $c->stash->{site} ); |
67 |
|
|
68 |
my $q = $c->req->params->{ $search || 'all' } || $c->response->body("no results"); |
my $q = $c->req->params->{ $search || 'all' } || $c->response->body("no results"); |
137 |
$webpac->setup_site( $c->stash->{site} ); |
$webpac->setup_site( $c->stash->{site} ); |
138 |
my $log = $c->log; |
my $log = $c->log; |
139 |
|
|
140 |
$log->debug("results got params: " . Dumper( $params ) ); |
$log->dumper($params, 'params'); |
141 |
|
|
142 |
if (! $params->{_page} || $params->{_page} < 1) { |
if (! $params->{_page} || $params->{_page} < 1) { |
143 |
$params->{_page} = 1; |
$params->{_page} = 1; |