/[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 1166 by dpavlin, Sat Apr 25 17:12:43 2009 UTC revision 1170 by dpavlin, Sat Apr 25 21:25:15 2009 UTC
# Line 218  if ( my $search = param('search') ) { Line 218  if ( my $search = param('search') ) {
218    
219          $pager->total_entries( $swish_results->hits );          $pager->total_entries( $swish_results->hits );
220    
221            $swish_results->seek_result( $pager->first );
222    
223          if ( ! $pager->total_entries ) {          if ( ! $pager->total_entries ) {
224                  my $no_results = 'No results for search <b>%s</b>';                  my $no_results = 'No results for search <b>%s</b>';
225                  $no_results = $swish->error_string . '<br><b>%s</b>' if $swish->error;                  $no_results = $swish->error_string . '<br><b>%s</b>' if $swish->error;
# Line 234  if ( my $search = param('search') ) { Line 236  if ( my $search = param('search') ) {
236                  my $start = $pager->first;                  my $start = $pager->first;
237                  print qq|<ol start=$start>\n|;                  print qq|<ol start=$start>\n|;
238    
239                    my $limit = $pager->entries_on_this_page;
240    
241                  while ( my $result = $swish_results->next_result ) {                  while ( my $result = $swish_results->next_result ) {
242                            last if $limit-- == 0;
243    
244                          my $data = from_json $result->property('data');                          my $data = from_json $result->property('data');
245    
246                          dump_yaml( 'data', $data );                          dump_yaml( 'data', $data );
Legend:
Removed from v.1166  
changed lines
  Added in v.1170
  ViewVC Help
Powered by ViewVC 1.1.26