| 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 |
|
|
Parent Directory
| 
Revision Log
| 
Patch