/[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 93 by dpavlin, Tue Nov 22 12:57:15 2005 UTC revision 117 by dpavlin, Wed Nov 23 21:52:25 2005 UTC
# Line 2  package Webpacus::Controller::Results; Line 2  package Webpacus::Controller::Results;
2    
3  use strict;  use strict;
4  use warnings;  use warnings;
5  use base 'Catalyst::Controller';  use base qw/Catalyst::Controller/;
6    
7  =head1 NAME  =head1 NAME
8    
9  Webpacus::Controller::Results - Catalyst Controller  Webpacus::Controller::Results - Display results from WebPAC
10    
11  =head1 SYNOPSIS  =head1 SYNOPSIS
12    
# Line 32  sub default : Private { Line 32  sub default : Private {
32      my $log = $c->log;      my $log = $c->log;
33    
34  use Data::Dumper;  use Data::Dumper;
35      $log->debug("got params: " . Dumper( $params ) );      $log->debug("results got params: " . Dumper( $params ) );
36    
37      $c->stash->{results} = sub {      my $q;
38          my @res = $webpac->search(      my @attr;
39                  query => 'ivan',  
40          );      foreach my $f (keys %{ $params }) {
41          return @res;  
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';      $c->stash->{template} = 'results.tt';
Legend:
Removed from v.93  
changed lines
  Added in v.117
  ViewVC Help
Powered by ViewVC 1.1.26