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

Diff of /trunk/vhost/webpac2.cgi

Parent Directory | Revision Log | View Patch Patch

-revision 1138 by dpavlin,
Wed Apr 22 10:14:56 2009 UTC
+revision 1142 by dpavlin,
Thu Apr 23 10:59:00 2009 UTC
 Line 13 
 use Data::Dump qw/dump/;
  my $range_around = 5;
  my $entries_per_page = 30;
+ my $debug = param('debug');
- print header;
+ print header(
+         -charset => 'utf-8',
+ );
  sub dump_yaml {
          my $name = shift;
-         print qq|<pre># $name\n|, YAML::Dump( @_ ), qq|</pre>|;
+         print qq|<pre># $name\n|, YAML::Dump( @_ ), qq|</pre>| if $debug;
  }
- sub show_pages {
+ sub show_pager {
-         my ($pager,$coderef) = @_;
+         my ($pager) = @_;
          my @show_pages;
          my $after_current = 0;
-Line 34 
 sub show_pages {
+Line 37 
 sub show_pages {
                  @show_pages = ( $pager->first_page, '', $pager->current_page - $range_around .. $pager->current_page );
          }
-         if ( $pager->current_page + $range_around + 1 >= $pager->last_page ) {
+         if ( $pager->current_page + $after_current + $range_around + 1 >= $pager->last_page ) {
                  push @show_pages, ( $pager->current_page + 1 .. $pager->last_page );
          } else {
                  push @show_pages, ( $pager->current_page + 1 .. $pager->current_page + $after_current + $range_around, '', $pager->last_page );
          }
-         warn "## show_pages = ",dump( @show_pages );
+ #       dump_yaml( 'show_pages', \@show_pages );
-         return join( ' ', map {
+         return '' unless $#show_pages;
-                 if ( $_ == $pager->current_page ) {
-                         qq|<b>$_</b>|;
+         my ( $prev, $next ) = ( '&lt;&lt;', '&gt;&gt;' );
-                 } elsif ( $_ eq '' ) {
-                         qq|...|;
+         sub li_a_href {
-                 } else {
+                 my ( $page, $label, $attr ) = @_;
-                         $coderef->( $_ );
+                 param( 'current_page', $page );
-                 }
+                 my $url = self_url( -query => 1 );
-         } @show_pages );
+                 $attr ||= '';
+                 $label ||= $page;
+                 qq|<li$attr><a href="$url" title="$page">$label</a></li>|;
+         }
+         return
+                   $pager->previous_page ? li_a_href( $pager->previous_page, $prev ) : qq|<li class=skip>$prev</li>|
+                 , ( map {
+                         if ( $_ eq $pager->current_page ) {
+                                 qq|<li class=current_page>$_</li>|;
+                         } elsif ( $_ eq '' ) {
+                                 qq|<li class=skip>...</li>|;
+                         } else {
+                                 li_a_href( $_ );
+                         }
+                 } @show_pages )
+                 , $pager->next_page ? li_a_href( $pager->next_page, $next ) : qq|<li class=skip>$next</li>|
+                 ;
  }
  my $path = $ENV{PATH_INFO} || 'ecas';
-Line 84 
 print
+Line 105 
 print
          ),
          h1( $db->{name} ),
          qq|<div id=description>|, $db->{description}, qq|</div>|,
-         start_form,
+         start_form( -action => self_url( query => 0 ) ),
                  radio_group(
                          -name => 'attr',
                          -values => [ @attr ],
  #                       -linebreak => 0,
                  ),
                  textfield( -name => 'search' ),
+                 popup_menu( -name => 'attr_operator', -values => [ '', 'STRBW', 'STREQ' ],
+                         -labels => {
+                                 '' => 'Bilo koja riječ',
+                                 'STRBW' => 'Početak',
+                                 'STREQ' => 'Točan oblik',
+                         },
+                 ),
                  submit,
-                 textfield( -name => 'entries_per_page', -default => $entries_per_page ),
+                 hidden( -name => 'entries_per_page', -default => $entries_per_page ),
-                 textfield( -name => 'current_page', -default => 1 ),
+                 hidden( -name => 'current_page', -default => 1 ),
+                 checkbox( -name => 'debug', -default => 0 ), # FIXME hidden?
  ;
  print   end_form;
-Line 108 
 if ( my $search = param('search') ) {
+Line 137 
 if ( my $search = param('search') ) {
          );
          param( 'entries_per_page', $entries_per_page ) unless param('entries_per_page'); # FIXME not needed?
+         my $pager = Data::Page->new;
+         $pager->total_entries( param('current_page') * param('entries_per_page') );
+         $pager->$_( param($_) ) foreach ( qw/entries_per_page current_page/ );
-         my $cond = Search::Estraier::Condition->new;
+         dump_yaml( 'pager', $pager );
+         my $cond = Search::Estraier::Condition->new( debug => $debug );
          $cond->set_phrase( $search );
-         $cond->set_skip( param('current_page') );
+         $cond->set_skip( $pager->skipped );
-         $cond->set_max( param('entries_per_page') );
+         $cond->set_max(  $pager->entries_per_page );
+         if ( my $op = param('attr_operator') ) {
+                 $cond->add_attr( param('attr') . " $op " . param('search') );
+         }
          my $nres = $node->search( $cond, 0 );
+         $pager->total_entries( $nres->hits );
-         my $pager = Data::Page->new( $nres->hits, param('entries_per_page'), param('current_page') );
+         dump_yaml( 'cond', $cond );
+         dump_yaml( 'nres', $nres );
          if ( ! $nres ) {
                  my $no_results = "No results for search '%s'";
-                 printf qq|<div class="error">$no_results</div>|, $search;
+                 printf qq|<div class="error">$no_results</div>\n\n|, $search;
          } else {
-                 my $results = "Got %d results for search '%s'";
+                 my $results = "%d results for search '%s' showing results %d - %d on page %d";
-                 printf qq|<div class="message">$results</div>|, $nres->hits, $search;
+                 printf qq|<div class="message">$results</div>\n\n|, $nres->hits, $search, $pager->first, $pager->last, $pager->current_page;
-                 print
+                 my $pager_html = join("\n", show_pager( $pager ));
-                         qq|<div class=pager>|,
-                         show_pages( $pager,
+                 print qq|<ul class="pager">$pager_html</ul>\n\n| if $pager_html;
-                                 sub {
-                                         my ($page) = @_;
-                                         param( 'current_page', $page );
-                                         my $url = self_url( -query => 1 );
-                                         qq|<a href="$url">$_</a>|;
-                                 }
-                         ),
-                         qq|</div>|
-                 ;
                  my $start = $pager->first;
-                 print qq|<ol start=$start>|;
+                 print qq|<ol start=$start>\n|;
                  foreach my $i ( 1 .. $nres->doc_num ) {
                          my $rdoc = $nres->get_doc( $i - 1 );
-Line 158 
 if ( my $search = param('search') ) {
+Line 190 
 if ( my $search = param('search') ) {
                          }
                          print qq|</li>\n|;
                  }
-                 print qq|</ol>|;
+                 print qq|</ol>\n\n|;
+                 print qq|<ul class="pager bottom">$pager_html</ul>\n\n| if $pager_html;
          }
          print qq|</div>|;

 Legend:



Removed from v.1138
 


changed lines


 
Added in v.1142
 Legend:



Removed from v.1138
 


changed lines


 
Added in v.1142
-Removed from v.1138
+Added in v.1142

	ViewVC Help
Powered by ViewVC 1.1.26