/[webpac2]/Webpacus/lib/Webpacus/Model/WebPAC.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 /Webpacus/lib/Webpacus/Model/WebPAC.pm

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

revision 149 by dpavlin, Fri Nov 25 01:24:31 2005 UTC revision 150 by dpavlin, Fri Nov 25 19:19:55 2005 UTC
# Line 124  sub iconv_on_save { Line 124  sub iconv_on_save {
124    
125  =head2 search  =head2 search
126    
127    my $m->search( 'query phrase', 'result_template.tt', \@add_attr );    my $m->search(
128            phrase => 'query phrase',
129            template => 'result_template.tt',
130            add_attr => \@add_attr
131      );
132    
133  =cut  =cut
134    
135  sub search {  sub search {
136          my ( $self, $query, $template, $add_attr ) = @_;          my $self = shift;
137    
138            my $args = {@_};
139    
140          my $log = $self->{log};          my $log = $self->{log};
141    
142          $log->debug("search model query: '$query', add_attr: '" . join("','", @{$add_attr}) . "'");          $log->debug("args: " . Dumper( $args ));
143    
144            my $query = $args->{phrase} || $log->warn("no query phrase") && return;
145    
146          my $template_filename = $template || $self->{template};          $log->debug("search model query: '$query', add_attr: '" . join("','", @{$args->{add_attr}}) . "'");
147    
148            my $template_filename = $args->{template} || $self->{template};
149    
150          my @results = $self->{est}->search(          my @results = $self->{est}->search(
151                  phrase => $query,                  phrase => $query,
152                  get_attr => [ '@uri' ],                  get_attr => [ '@uri' ],
153                  max => $self->{est}->{hits_on_page} || 30,                  max => ( $self->{est}->{hits_on_page} || 30 ),
154                  add_attr => $add_attr,                  add_attr => $args->{add_attr},
155          );          );
156    
157          $log->debug("loading " . ($#results + 1) . " results");          my $hits = $#results + 1;
158    
159            $log->debug("processing $hits results");
160    
161          my @html_results;          my @html_results;
162    
Legend:
Removed from v.149  
changed lines
  Added in v.150
  ViewVC Help
Powered by ViewVC 1.1.26