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