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

diff --git a/vhost/webpac2.cgi b/vhost/webpac2.cgi
index 4079f3c..1f77b8f 100755 (executable)
--- 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|<div id=inputs>|,
+               h2( 'Select input' ),
+               checkbox_group(
+                       -name => 'only_input',
+                       -values => [ map { $_->{name} } @{ $db->{input} } ],
+                       -linebreak=> 'true',
+               ),
+               qq|</div>|,
+
 ;
 
+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 );