/[webpac2]/trunk/vhost/webpac2.cgi
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/vhost/webpac2.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1142 by dpavlin, Thu Apr 23 10:59:00 2009 UTC revision 1143 by dpavlin, Thu Apr 23 10:59:01 2009 UTC
# Line 123  print Line 123  print
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') ) {
# Line 152  if ( my $search = param('search') ) { Line 164  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    
Legend:
Removed from v.1142  
changed lines
  Added in v.1143
  ViewVC Help
Powered by ViewVC 1.1.26