--- trunk/vhost/webpac2.cgi	2009/04/23 10:59:00	1142
+++ trunk/vhost/webpac2.cgi	2009/04/23 10:59:01	1143
@@ -123,8 +123,20 @@
 		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 @@
 		$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 );