Parent Directory | Revision Log | Patch
revision 83 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 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |