From dd90d5ad6ed43a985d367818cd6238973d32bbca Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Thu, 23 Apr 2009 10:59:01 +0000 Subject: [PATCH] r1793@llin: dpavlin | 2009-04-23 12:27:54 +0200 filter by inputs git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1143 07558da8-63fa-0310-ba24-9fe276d99e06 --- vhost/webpac2.cgi | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/vhost/webpac2.cgi b/vhost/webpac2.cgi index 4079f3c..1f77b8f 100755 --- a/vhost/webpac2.cgi +++ b/vhost/webpac2.cgi @@ -123,8 +123,20 @@ print hidden( -name => 'entries_per_page', -default => $entries_per_page ), hidden( -name => 'current_page', -default => 1 ), checkbox( -name => 'debug', -default => 0 ), # FIXME hidden? + qq|
|, + h2( 'Select input' ), + checkbox_group( + -name => 'only_input', + -values => [ map { $_->{name} } @{ $db->{input} } ], + -linebreak=> 'true', + ), + qq|
|, + ; +dump_yaml( 'inputs', $db->{input} ); +dump_yaml( 'input names', map { $_->{name} } @{ $db->{input} } ); + print end_form; if ( my $search = param('search') ) { @@ -152,6 +164,11 @@ if ( my $search = param('search') ) { $cond->add_attr( param('attr') . " $op " . param('search') ); } + foreach my $i ( param('only_input') ) { + $cond->add_attr( '@uri STRBW file:///search/' . $database . '/' . $i ); + } + + my $nres = $node->search( $cond, 0 ); $pager->total_entries( $nres->hits ); -- 2.20.1