/[webpac2]/Webpacus/lib/Webpacus/Controller/Search.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /Webpacus/lib/Webpacus/Controller/Search.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 326 by dpavlin, Mon Dec 26 20:10:52 2005 UTC revision 400 by dpavlin, Sun Feb 19 13:14:26 2006 UTC
# Line 4  use strict; Line 4  use strict;
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    
# Line 33  Catalyst Controller for search fields Hy Line 31  Catalyst Controller for search fields Hy
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  }  }
# Line 64  sub suggest : Local { Line 62  sub suggest : Local {
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->dumper( $c->stash, 'stash' );
66            $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");
69    
# Line 78  sub suggest : Local { Line 78  sub suggest : Local {
78    
79          $c->forward('filter_database');          $c->forward('filter_database');
80    
81          my @hits = $webpac->search(          my $hits = $webpac->search(
82                  phrase => $q,                  phrase => $q,
83                  add_attr => $c->stash->{attr},                  add_attr => $c->stash->{attr},
84                  get_attr => [ $show ],                  get_attr => [ $show ],
# Line 88  sub suggest : Local { Line 88  sub suggest : Local {
88          my $used;          my $used;
89          my @suggestions;          my @suggestions;
90    
91          foreach my $res (@hits) {          foreach my $res (@{$hits}) {
92                  my $v = $res->{ $show } || next;                  my $v = $res->{ $show } || next;
93                  next if ($used->{ $v }++);                  next if ($used->{ $v }++);
94                  push @suggestions, $v;                  push @suggestions, $v;
# Line 134  sub results_ajax : Path( 'results/ajax' Line 134  sub results_ajax : Path( 'results/ajax'
134    
135          my $params = $c->req->params;          my $params = $c->req->params;
136          my $webpac = $c->comp('Model::WebPAC');          my $webpac = $c->comp('Model::WebPAC');
137            $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;
Legend:
Removed from v.326  
changed lines
  Added in v.400
  ViewVC Help
Powered by ViewVC 1.1.26