/[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!

Diff of /no_pager/index.cgi

Parent Directory | Revision Log | View Patch Patch

-revision 15 by dpavlin,
Wed Aug 16 21:34:37 2006 UTC
+revision 24 by dpavlin,
Thu Aug 17 21:16:18 2006 UTC
 Line 25 
 my $v = {
  my $json;
- #warn "config = ", dump($config);
+ sub debug {
+         my ($text,$var) = @_;
+         print "<pre>$text = ", dump($var), "</pre>";
+ }
+ #debug('config', $config);
+ sub json {
+         return
+         '<textarea id="json" style="display:none">' .
+         $q->escapeHTML( JSON::Syck::Dump( $v ) ) .
+         '</textarea>';
+ }
+ sub sort_order {
+         my $out;
+         my $sort = $q->param('sort');
+         $out .= '<select name="sort" id="sort">';
+         foreach my $s (@{ $config->{estraier}->{order} }) {
+                 my ($text,$value) = %{$s};
+                 $out .= qq{<option value="$value"} .
+                         ( $sort eq $value ? ' selected' : '' ) .
+                         qq{>$text</option>};
+         }
+         $out .= '</select>';
+ }
  sub get_results {
-         my ($search, $page) = @_;
+         my $p = {@_};
+         my ($search,$page) = ( $p->{search} , $p->{page});
-         if (! $search) {
+         sub next_page {
+                 return '<div id="next_page">' .
+                         join("\n", @_) . json() . '</div>';
+         }
+         if (! $search || $search =~ m/^\s*$/) {
                  $v->{status} = 'Enter search query';
-                 return;
+                 return next_page();
          }
          if (! $page) {
                  $v->{status} = 'Error: no page number?';
-                 return;
+                 return next_page();
          }
          $search = join(" AND ", split(/\s+/, $search)) unless ($search =~ m/(?:AND|OR|\[|\])/);
-         $v->{search} = $search || '';
+         $v->{search} = $search;
          $v->{page} = $page;
-Line 54 
 sub get_results {
+Line 90 
 sub get_results {
          $cond->set_phrase( $search );
          $cond->set_max( $on_page );
          $cond->set_skip( $skip );
+         $cond->set_order( $p->{sort} ) if ($p->{sort});
          my $nres = $node->search($cond, ( $config->{estraier}->{depth} || 0 ) );
          my $out;
          if (defined($nres)) {
+                 if ($nres->doc_num == 0) {
+                         $v->{status} = qq{<strong>Error getting results for page $page.</strong>};
+                         return next_page('<strong>No results found.</strong>');
+                 }
                  $v->{hits} = $nres->hits;
                  $v->{time} = $nres->hint('TIME');
                  $v->{max_page} = int( ($nres->hits + $on_page - 1) / $on_page );
-Line 99 
 sub get_results {
+Line 142 
 sub get_results {
                          return $text;
                  }
+                 my @template;
+                 open(my $t, 'result.html')  || die "result.html: $!";
+                 while(<$t>) {
+                         push @template, $_;
+                 }
+                 close($t);
                  # for each document in results
                  for my $i ( 0 ... $nres->doc_num - 1 ) {
                          my $rdoc = $nres->get_doc($i);
-                         $out .= '<div class="item">' .
-                                 '<h1>' . $rdoc->attr('@title') . '</h1>' .
-                                 '<p>' . html_snippet( $rdoc->snippet ) . '</p>' .
-                                 '<h2>' . attr_regex( $rdoc, 'source' ) . '</h2>';
                          my $uri = attr_regex( $rdoc, '@uri' );
-                         $out .=
+                         my $nr = $skip + $i + 1;
-                                 qq{<a href="$uri"><tt>$uri</tt></a> } .
-                                 attr_regex( $rdoc, '@mdate' ) .
+                         map {
-                                 ' [' . ( $skip + $i + 1 ) . ']';
+                                 my $l = $_;
+                                 $l =~ s/<%(.+?)%>/eval "$1"/ge;
+                                 $out .= $l;
+                         } @template;
                  }
          } else {
                  $out .= 'error: ' . $node->status;
          }
-         $json = '<textarea id="json" style="display:none">' .
+         if ($v->{page} == $v->{max_page}) {
-                 $q->escapeHTML( JSON::Syck::Dump( $v ) ) .
+                 $out .= next_page('<br/><strong>All results shown</strong>');
-                 '</textarea>';
+         } else {
+                 $out .= next_page(
+                         '<br/><strong>Loading results...</strong><br/>',
+                         'If you are using the scroll bar, release the mouse to see more results.'
+                 );
+         }
-         return ($out,$json);
+         return $out;
  }
  if ($q->path_info() eq '/snippet') {
-         print join("\n<!-- json data -->",
+         print get_results(
-                 get_results(
+                 search => $q->param('search') || '',
-                         $q->param('search'),
+                 page => $q->param('page') || 0,
-                         $q->param('page'),
+                 sort => $q->param('sort') || undef,
-                 )
          );
  } else {
-         my ($get_results, $json) = get_results( $q->param('search'), 1 );
+         my $get_results = get_results(
+                 search => $q->param('search') || '',
+                 page => 1,
+                 sort => $q->param('sort') || undef,
+         );
          my $f = $q->path_info;
          $f =~ s/\W+//g;
-Line 150 
 if ($q->path_info() eq '/snippet') {
+Line 207 
 if ($q->path_info() eq '/snippet') {
                  s/<%(.+?)%>/eval "$1"/ge;
                  print;
          }
-         close($f);
+         close($s);
  }

 Legend:



Removed from v.15
 


changed lines


 
Added in v.24
 Legend:



Removed from v.15
 


changed lines


 
Added in v.24
-Removed from v.15
+Added in v.24

	ViewVC Help
Powered by ViewVC 1.1.26