/[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 92 by dpavlin, Mon Nov 21 17:46:27 2005 UTC revision 93 by dpavlin, Tue Nov 22 12:57:15 2005 UTC
# Line 27  Catalyst Controller. Line 27  Catalyst Controller.
27  sub default : Private {  sub default : Private {
28      my ( $self, $c ) = @_;      my ( $self, $c ) = @_;
29    
30      sleep 3;      my $webpac = $c->comp('Model::WebPAC');
31        my $params = $c->req->params;
32        my $log = $c->log;
33    
34    use Data::Dumper;
35        $log->debug("got params: " . Dumper( $params ) );
36    
37        $c->stash->{results} = sub {
38            my @res = $webpac->search(
39                    query => 'ivan',
40            );
41            return @res;
42        };
43    
44      $c->stash->{template} = 'results.tt';      $c->stash->{template} = 'results.tt';
45  }  }
Legend:
Removed from v.92  
changed lines
  Added in v.93
  ViewVC Help
Powered by ViewVC 1.1.26