123 |
hidden( -name => 'entries_per_page', -default => $entries_per_page ), |
hidden( -name => 'entries_per_page', -default => $entries_per_page ), |
124 |
hidden( -name => 'current_page', -default => 1 ), |
hidden( -name => 'current_page', -default => 1 ), |
125 |
checkbox( -name => 'debug', -default => 0 ), # FIXME hidden? |
checkbox( -name => 'debug', -default => 0 ), # FIXME hidden? |
126 |
|
qq|<div id=inputs>|, |
127 |
|
h2( 'Select input' ), |
128 |
|
checkbox_group( |
129 |
|
-name => 'only_input', |
130 |
|
-values => [ map { $_->{name} } @{ $db->{input} } ], |
131 |
|
-linebreak=> 'true', |
132 |
|
), |
133 |
|
qq|</div>|, |
134 |
|
|
135 |
; |
; |
136 |
|
|
137 |
|
dump_yaml( 'inputs', $db->{input} ); |
138 |
|
dump_yaml( 'input names', map { $_->{name} } @{ $db->{input} } ); |
139 |
|
|
140 |
print end_form; |
print end_form; |
141 |
|
|
142 |
if ( my $search = param('search') ) { |
if ( my $search = param('search') ) { |
164 |
$cond->add_attr( param('attr') . " $op " . param('search') ); |
$cond->add_attr( param('attr') . " $op " . param('search') ); |
165 |
} |
} |
166 |
|
|
167 |
|
foreach my $i ( param('only_input') ) { |
168 |
|
$cond->add_attr( '@uri STRBW file:///search/' . $database . '/' . $i ); |
169 |
|
} |
170 |
|
|
171 |
|
|
172 |
my $nres = $node->search( $cond, 0 ); |
my $nres = $node->search( $cond, 0 ); |
173 |
$pager->total_entries( $nres->hits ); |
$pager->total_entries( $nres->hits ); |
174 |
|
|