/[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 94 by dpavlin, Tue Nov 22 12:57:20 2005 UTC
# Line 34  sub default : Private { Line 34  sub default : Private {
34  use Data::Dumper;  use Data::Dumper;
35      $log->debug("got params: " . Dumper( $params ) );      $log->debug("got params: " . Dumper( $params ) );
36    
37        my $q;
38        my @attr;
39    
40        foreach my $f (keys %{ $params }) {
41            next unless ($params->{$f});
42            next if ($f =~ m/^_/o);
43            push @attr, $f;
44            $q .= $params->{$f} . " ";
45        }
46    
47      $c->stash->{results} = sub {      $c->stash->{results} = sub {
48          my @res = $webpac->search(          my $res = $webpac->search( $q );
49                  query => 'ivan',          $log->debug("results are: " . join(",", $res));
50          );          return $res;
         return @res;  
51      };      };
52    
53      $c->stash->{template} = 'results.tt';      $c->stash->{template} = 'results.tt';
Legend:
Removed from v.93  
changed lines
  Added in v.94
  ViewVC Help
Powered by ViewVC 1.1.26