/[jquery]/no_pager/index.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 /no_pager/index.cgi

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

revision 20 by dpavlin, Thu Aug 17 00:16:51 2006 UTC revision 28 by dpavlin, Fri Aug 18 09:41:35 2006 UTC
# Line 88  sub get_results { Line 88  sub get_results {
88    
89          my $cond = new Search::Estraier::Condition;          my $cond = new Search::Estraier::Condition;
90          $cond->set_phrase( $search );          $cond->set_phrase( $search );
91          $cond->set_max( $on_page );          $cond->set_max( $on_page * $page );     ## FIXME * $page is needed by hest 1.3.8
92          $cond->set_skip( $skip );          $cond->set_skip( $skip );
93          $cond->set_order( $p->{sort} ) if ($p->{sort});          $cond->set_order( $p->{sort} ) if ($p->{sort});
94    
# Line 97  sub get_results { Line 97  sub get_results {
97          my $out;          my $out;
98    
99          if (defined($nres)) {          if (defined($nres)) {
100    
101                  $v->{hits} = $nres->hits;                  $v->{hits} = $nres->hits;
102                  $v->{time} = $nres->hint('TIME');                  $v->{time} = $nres->hint('TIME');
103    
104                    if ($v->{hits} == 0) {
105                            $v->{status} = qq{<strong>No results for your search.</strong>};
106                            return next_page();
107                    } elsif ($nres->doc_num == 0) {
108                            $v->{status} = qq{<strong>Error getting results for page $page.</strong>};
109                            return next_page('<strong>No results found.</strong>');
110                    }
111    
112                  $v->{max_page} = int( ($nres->hits + $on_page - 1) / $on_page );                  $v->{max_page} = int( ($nres->hits + $on_page - 1) / $on_page );
113    
114                  $v->{status} = qq{                  $v->{status} = qq{
# Line 136  sub get_results { Line 146  sub get_results {
146                          return $text;                          return $text;
147                  }                  }
148    
149                    my @template;
150                    open(my $t, 'result.html')  || die "result.html: $!";
151                    while(<$t>) {
152                            push @template, $_;
153                    }
154                    close($t);
155    
156                  # for each document in results                  # for each document in results
157                  for my $i ( 0 ... $nres->doc_num - 1 ) {                  for my $i ( 0 ... $nres->doc_num - 1 ) {
158    
159                          my $rdoc = $nres->get_doc($i);                          my $rdoc = $nres->get_doc($i);
   
                         $out .= '<div class="item">' .  
                                 '<h1>' . $rdoc->attr('@title') . '</h1>' .  
                                 '<p>' . html_snippet( $rdoc->snippet ) . '</p>' .  
                                 '<strong>' . attr_regex( $rdoc, 'source' ) . '</strong>' .  
                                 ' [' . attr_regex( $rdoc, '@size' ) . ' bytes]<br/>';  
160                          my $uri = attr_regex( $rdoc, '@uri' );                          my $uri = attr_regex( $rdoc, '@uri' );
161                          $out .=                          my $nr = $skip + $i + 1;
162                                  qq{<a href="$uri"><tt>$uri</tt></a> } .  
163                                  attr_regex( $rdoc, '@mdate' ) .                          map {
164                                  ' [' . ( $skip + $i + 1 ) . ']';                                  my $l = $_;
165                                    $l =~ s/<%(.+?)%>/eval "$1"/ge;
166                                    $out .= $l;
167                            } @template;
168    
169                  }                  }
170    
171          } else {          } else {
# Line 158  sub get_results { Line 173  sub get_results {
173          }          }
174    
175          if ($v->{page} == $v->{max_page}) {          if ($v->{page} == $v->{max_page}) {
176                  $out .= next_page('<strong>All results shown</strong>');                  $out .= next_page('<br/><strong>All results shown</strong>');
177          } else {          } else {
178                  $out .= next_page(                  $out .= next_page(
179                          '<strong>Loading results...</strong><br/>',                          '<br/><strong>Loading results...</strong><br/>',
180                          'If you are using the scroll bar, release the mouse to see more results.'                          'If you are using the scroll bar, release the mouse to see more results.'
181                  );                  );
182          }          }
# Line 196  if ($q->path_info() eq '/snippet') { Line 211  if ($q->path_info() eq '/snippet') {
211                  s/<%(.+?)%>/eval "$1"/ge;                  s/<%(.+?)%>/eval "$1"/ge;
212                  print;                  print;
213          }          }
214          close($f);          close($s);
215    
216  }  }
Legend:
Removed from v.20  
changed lines
  Added in v.28
  ViewVC Help
Powered by ViewVC 1.1.26