/[webpac2]/Webpacus2/lib/Webpacus/Action/Search.pm
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 /Webpacus2/lib/Webpacus/Action/Search.pm

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

revision 934 by dpavlin, Wed Oct 31 11:26:39 2007 UTC revision 940 by dpavlin, Wed Oct 31 12:34:33 2007 UTC
# Line 69  sub take_action { Line 69  sub take_action {
69    
70          my $message =          my $message =
71                  _('Found') . " $total_hits " .                  _('Found') . " $total_hits " .
72                  _('results for') . " '$query' " .                  _('results for') . " '$query'";
73                  _('on field') . ' ' . $search->name;          
74            $message .= " " . _('on field') . ' ' . $search->name if $search->name;
75    
76          while ( my $hit = $index->fetch_hit_hashref ) {          $self->result->content(
77                  warn dump($hit);                  results => Webpacus::Search::Results->new({
78          }                          count => $total_hits,
79                            index => $index,
80                    }),
81            );
82    
83          $self->result->message( $message );          $self->result->message( $message );
84            
85          return 1;          return 1;
86  }  }
87    
88    package Webpacus::Search::Results;
89    
90    use strict;
91    use warnings;
92    use base qw( Class::Accessor );
93    __PACKAGE__->mk_accessors( qw(
94            count
95            index
96    ) );
97    
98    use Data::Dump qw/dump/;
99    
100    sub next {
101            my $self = shift;
102            my $row = $self->index->fetch_hit_hashref;
103    
104            warn "## next row = ", dump( $row );
105    
106            return $row;
107    }
108    
109  1;  1;
110    
Legend:
Removed from v.934  
changed lines
  Added in v.940
  ViewVC Help
Powered by ViewVC 1.1.26