38 |
my @attr; |
my @attr; |
39 |
|
|
40 |
foreach my $f (keys %{ $params }) { |
foreach my $f (keys %{ $params }) { |
41 |
next unless ($params->{$f}); |
|
42 |
next if ($f =~ m/^_/o); |
next if ($f =~ m/^_/o); |
43 |
|
|
44 |
|
my $v = $params->{$f} || next; |
45 |
|
|
46 |
push @attr, $f; |
push @attr, $f; |
47 |
$q .= $params->{$f} . " "; |
$q .= "$v "; |
48 |
} |
} |
49 |
|
|
50 |
$c->stash->{results} = sub { |
$c->stash->{results} = sub { |
51 |
my $res = $webpac->search( $q ); |
my $res = $webpac->search( $q ); |
52 |
$log->debug("results are: " . join(",", $res)); |
$log->debug("got ", $#{$res} + 1, "results for " . Dumper($q)); |
53 |
return $res; |
return $res; |
54 |
}; |
}; |
55 |
|
|