--- Webpacus/lib/Webpacus/Controller/Results.pm	2005/11/21 17:46:27	83
+++ Webpacus/lib/Webpacus/Controller/Results.pm	2005/11/22 12:57:20	94
@@ -27,7 +27,28 @@
 sub default : Private {
     my ( $self, $c ) = @_;
 
-    sleep 3;
+    my $webpac = $c->comp('Model::WebPAC');
+    my $params = $c->req->params;
+    my $log = $c->log;
+
+use Data::Dumper;
+    $log->debug("got params: " . Dumper( $params ) );
+
+    my $q;
+    my @attr;
+
+    foreach my $f (keys %{ $params }) {
+	next unless ($params->{$f});
+	next if ($f =~ m/^_/o);
+	push @attr, $f;
+	$q .= $params->{$f} . " ";
+    }
+
+    $c->stash->{results} = sub {
+	my $res = $webpac->search( $q );
+	$log->debug("results are: " . join(",", $res));
+	return $res;
+    };
 
     $c->stash->{template} = 'results.tt';
 }