/[webpac2]/Webpacus/lib/Webpacus/Controller/Results.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/Results.pm

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

revision 132 by dpavlin, Thu Nov 24 12:18:00 2005 UTC revision 133 by dpavlin, Thu Nov 24 16:30:11 2005 UTC
# Line 3  package Webpacus::Controller::Results; Line 3  package Webpacus::Controller::Results;
3  use strict;  use strict;
4  use warnings;  use warnings;
5  use base qw/Catalyst::Controller/;  use base qw/Catalyst::Controller/;
6    use Data::Dumper;
7    
8  =head1 NAME  =head1 NAME
9    
# Line 31  sub default : Private { Line 32  sub default : Private {
32      my $params = $c->req->params;      my $params = $c->req->params;
33      my $log = $c->log;      my $log = $c->log;
34    
 use Data::Dumper;  
35      $log->debug("results got params: " . Dumper( $params ) );      $log->debug("results got params: " . Dumper( $params ) );
36    
37      my @attr;      my @attr;
38      my @words;      my @words;
39        # default operator to join fields/words
40        my $operator = 'AND';
41    
42      foreach my $f (keys %{ $params }) {      foreach my $f (keys %{ $params }) {
43    
# Line 43  use Data::Dumper; Line 45  use Data::Dumper;
45    
46          my $v = $params->{$f} || next;          my $v = $params->{$f} || next;
47    
48          push @words, $v;          if (my $op = $params->{ '_' . $f}) {
49                    push @words, join(" $op ", split(/\s+/, $v) );
50            } else {
51                    push @words, $v;
52            }
53    
54          next if ($f eq 'all');  # don't add_attr for magic field all          next if ($f eq 'all');  # don't add_attr for magic field all
55    
# Line 54  use Data::Dumper; Line 60  use Data::Dumper;
60          }          }
61      }      }
62    
63          my $q = join(' AND ', @words);          my $q = join(" $operator ", @words);
64    
65      $c->stash->{html_results} = sub {      $c->stash->{html_results} = sub {
66          my $res = $webpac->search( $q, $params->{'_template'}, \@attr );          my $res = $webpac->search( $q, $params->{'_template'}, \@attr );
Legend:
Removed from v.132  
changed lines
  Added in v.133
  ViewVC Help
Powered by ViewVC 1.1.26