/[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 153 by dpavlin, Sat Nov 26 01:54:31 2005 UTC revision 313 by dpavlin, Wed Dec 21 22:18:56 2005 UTC
# Line 7  use base 'Catalyst::Controller'; Line 7  use base 'Catalyst::Controller';
7  use Data::Dumper;  use Data::Dumper;
8    
9  use lib '/data/webpac2/lib';  use lib '/data/webpac2/lib';
10  use WebPAC::Search::Estraier;  use WebPAC::Search::Estraier 0.03;
11    
12    
13  =head1 NAME  =head1 NAME
14    
15  Webpacus::Controller::Search - Catalyst Controller  Webpacus::Controller::Search - Search WebPAC data
16    
17  =head1 SYNOPSIS  =head1 SYNOPSIS
18    
19  See L<Webpacus>  See L<WebPAC>, L<Webpacus>
20    
21  =head1 DESCRIPTION  =head1 DESCRIPTION
22    
23  Catalyst Controller for autocompleting search fields.  Catalyst Controller for search fields Hyper Estraier
24    
25  =head1 METHODS  =head1 METHODS
26    
# Line 32  Catalyst Controller for autocompleting s Line 32  Catalyst Controller for autocompleting s
32    
33  sub default : Private {  sub default : Private {
34      my ( $self, $c ) = @_;      my ( $self, $c ) = @_;
35    
36        $c->log->debug("default search got param: ".Dumper($c->req->params));
37    
38      $c->stash->{template} = 'search.tt';      $c->stash->{template} = 'search.tt';
39  }  }
40    
# Line 39  sub default : Private { Line 42  sub default : Private {
42    
43  Returns results for URLs like C<search/suggest/FieldName>  Returns results for URLs like C<search/suggest/FieldName>
44    
45    It will return field from URL (C<FieldName> in example>) and use
46    same filed in paramerers (comming from form or URL) or if it doesn't
47    exist field named C<all>.
48    
49  =cut  =cut
50    
51  sub suggest : Regex('^search/suggest/*([^/]*)') {  sub suggest : Regex('^search/suggest/*([^/]*)') {
# Line 48  sub suggest : Regex('^search/suggest/*([ Line 55  sub suggest : Regex('^search/suggest/*([
55    
56          my $log = $c->log;          my $log = $c->log;
57    
58          my $est_conf = $c->config->{hyperestraier};          my $webpac = $c->comp('Model::WebPAC');
         $est_conf->{log} = $c->log;  
   
         my $est = new WebPAC::Search::Estraier( %{ $est_conf } );  
59    
60          my $q = $c->req->params->{$what} ||          my $q = $c->req->params->{$what} ||
61                  $c->req->params->{all} || $c->res->output("no results");                  $c->req->params->{all} || $c->response->body("no results");
62    
63    
64          $log->info("search for '$q' in $what\n");          $log->info("search for '$q' in $what\n");
65    
66          my $max = $est_conf->{'hits_for_suggest'};          my $max = $c->config->{'hits_for_suggest'};
67          if (! $max) {          if (! $max) {
68                  $log->info("hits_for_suggest isn't defined, defaulting to 10");                  $log->info("hits_for_suggest isn't defined, defaulting to 10");
69                  $c->config->{'hits_for_suggest'} = 10;                  $c->config->{'hits_for_suggest'} = 10;
70                  $max = 10;                  $max = 10;
71          }          }
72    
73          my @hits = $est->search( phrase => $q, max => $max, get_attr => [ $what ] );          my @hits = $webpac->search(
74                    phrase => $q,
75                    max => $max,
76                    get_attr => [ $what ],
77            );
78    
79          my $used;          my $used;
80          my @suggestions;          my @suggestions;
# Line 79  sub suggest : Regex('^search/suggest/*([ Line 87  sub suggest : Regex('^search/suggest/*([
87    
88          $log->debug( ($#suggestions + 1) . " unique hits returned");          $log->debug( ($#suggestions + 1) . " unique hits returned");
89    
90          $c->res->body( $c->prototype->auto_complete_result( \@suggestions ) );          $c->response->body( $c->prototype->auto_complete_result( \@suggestions ) );
91  }  }
92    
93    
 # specify all Hyper Estraier operators which should stop this module  
 # from splitting search query and joining it with default operator  
 my $hest_op_regex = qr/(:?\[(:?BW|EW|RX)\]|AND|OR|ANDNOT)/;  
   
94  =item results  =item results
95    
96  Mothod which uses C<Model::WebPAC> and returns results for search query  Returns results for search query
97    
98  =cut  =cut
99    
100  sub results : Local {  sub results : Local {
101          my ( $self, $c ) = @_;          my ( $self, $c ) = @_;
102    
         my $webpac = $c->comp('Model::WebPAC');  
103          my $params = $c->req->params;          my $params = $c->req->params;
104    
105            # do full-page refresh for clients without JavaScript
106            $c->stash->{results} = $c->subreq('/search/results/ajax', {}, $params);
107            $c->stash->{template} = 'search.tt';
108    }
109    
110    
111    =item results_ajax
112    
113    Private method which uses C<Model::WebPAC> and returns results for search
114    query It generatets just I<inner> HTML for results div, so it has C<_ajax>
115    in name.
116    
117    =cut
118    
119    # specify all Hyper Estraier operators which should stop this module
120    # from splitting search query and joining it with default operator
121    my $hest_op_regex = '(:?\[(:?BW|EW|RX)\]|AND|OR|ANDNOT)';
122    
123    sub results_ajax : Path( 'results/ajax' ) {
124            my ( $self, $c ) = @_;
125    
126            my $params = $c->req->params;
127            my $webpac = $c->comp('Model::WebPAC');
128          my $log = $c->log;          my $log = $c->log;
129    
130          $log->debug("results got params: " . Dumper( $params ) );          $log->debug("results got params: " . Dumper( $params ) );
131    
132            if (! $params->{_page} || $params->{_page} < 1) {
133                    $params->{_page} = 1;
134                    $log->warn("fixed _page parametar to 1");
135            }
136    
137          my @attr;          my @attr;
138          my @words;          my @words;
139          # default operator to join fields/words          # default operator to join fields/words
# Line 114  sub results : Local { Line 146  sub results : Local {
146                  my $v = $params->{$f} || next;                  my $v = $params->{$f} || next;
147    
148                  if (my $op = $params->{ '_' . $f}) {                  if (my $op = $params->{ '_' . $f}) {
149                          if ($v =~ $hest_op_regex) {                          if ($v =~ /$hest_op_regex/) {
150                                  # don't split words if there is Hyper Estraier                                  # don't split words if there is Hyper Estraier
151                                  # operator in them                                  # operator in them
152                                  push @words, $v;                                  push @words, $v;
# Line 132  sub results : Local { Line 164  sub results : Local {
164                  } else {                  } else {
165                          map {                          map {
166                                  push @attr, "$f ISTRINC $_";                                  push @attr, "$f ISTRINC $_";
167                          } grep { ! $hest_op_regex } split(/\s+/, $v);                          } grep { ! /$hest_op_regex/ } split(/\s+/, $v);
168                  }                  }
169          }          }
170    
171            if ($params->{_database}) {
172                    my $type = $c->config->{hyperstraier}->{type} || 'search';
173                    my $attr;
174                    if (ref($params->{_database}) eq 'ARRAY') {
175                            # FIXME do we need to add $ at end?
176                            $attr .= '(' . join("|",@{$params->{_database}}) . ')';
177                    } else {
178                            $attr .= $params->{_database};
179                    }
180                    push @attr, '@uri STRRX /' . $type . '/' . $attr . '/';
181            }
182    
183          my $q = join(" $operator ", @words);          my $q = join(" $operator ", @words);
184    
185          my $template = $params->{'_template'};          my $template = $params->{'_template'} || $c->config->{webpac}->{template};
186          $log->debug("using template $template");  
187            $log->die("can't find _template or default from configuration!") unless ($template);
188    
189            my $hits_on_page = $c->config->{'hyperestraier'}->{'hits_on_page'} || 10;
190    
191            $log->debug("using template $template to produce $hits_on_page results");
192    
193          $c->stash->{html_results} = sub {          $c->stash->{html_results} = sub {
194                  my $res = $webpac->search(                  my $res = $webpac->search(
195                          phrase => $q,                          phrase => $q,
196                          template => $template,                          template => $template,
197                          add_attr => \@attr                          add_attr => \@attr,
198                            get_attr => [ '@uri' ],
199                            max => $hits_on_page,
200                            page => $params->{'_page'},
201                  );                  );
202          #       $log->debug("controller got " . ( $#{$res} + 1 ) . " results for '$q' " . Dumper( $res ));  #               $log->debug("controller got " . ( $#{$res} + 1 ) . " results for '$q' " . Dumper( $res ));
203                  return $res;                  return $res;
204          };          };
205    
206          $c->stash->{phrase} = $q;          $c->stash->{phrase} = $q;
207          $c->stash->{attr} = \@attr;          $c->stash->{attr} = \@attr;
208            $c->stash->{page} = $params->{'_page'};
209            $c->stash->{hits_on_page} = $hits_on_page;
210    
211          $c->stash->{template} = 'results.tt';          $c->stash->{template} = 'results.tt';
212    
213  }  }
214    
215  =back  =item record
216    
217    forwarded to C</editor/record>
218    
219    =cut
220    
221    sub record : Local {
222            my ( $self, $c ) = @_;
223    
224            $c->forward( '/editor/record' );
225    }
226    
227    =back
228    
229  =head1 AUTHOR  =head1 AUTHOR
230    
Legend:
Removed from v.153  
changed lines
  Added in v.313
  ViewVC Help
Powered by ViewVC 1.1.26