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

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

revision 97 by dpavlin, Tue Nov 22 12:57:35 2005 UTC revision 129 by dpavlin, Thu Nov 24 12:17:55 2005 UTC
# Line 32  sub default : Private { Line 32  sub default : Private {
32      my $log = $c->log;      my $log = $c->log;
33    
34  use Data::Dumper;  use Data::Dumper;
35      $log->debug("got params: " . Dumper( $params ) );      $log->debug("results got params: " . Dumper( $params ) );
36    
37      my $q;      my $q;
38      my @attr;      my @attr;
39    
40      foreach my $f (keys %{ $params }) {      foreach my $f (keys %{ $params }) {
41          next unless ($params->{$f});  
42          next if ($f =~ m/^_/o);          next if ($f =~ m/^_/o);
43          push @attr, $f;  
44          $q .= $params->{$f} . " ";          my $v = $params->{$f} || next;
45    
46            $q .= "$v ";
47    
48            next if ($f eq 'all');  # don't add_attr for magic field all
49    
50            if ($v !~ /\s/) {
51                    push @attr, "$f ISTRINC $v";
52            } else {
53                    map { push @attr, "$f ISTRINC $_"; } split(/\s+/, $v);
54            }
55      }      }
56    
57      $c->stash->{results} = sub {      # strip spaces from beginning and end
58          my $res = $webpac->search( $q );      $q =~ s/^\s+//;
59          $log->debug("results are: " . join(",", $res));      $q =~ s/\s+$//;
60    
61        $c->stash->{html_results} = sub {
62            my $res = $webpac->search( $q, $params->{'_template'}, \@attr );
63    #       $log->debug("controller got " . ( $#{$res} + 1 ) . " results for '$q' " . Dumper( $res ));
64          return $res;          return $res;
65      };      };
66    
67        $c->stash->{phrase} = $q;
68    
69      $c->stash->{template} = 'results.tt';      $c->stash->{template} = 'results.tt';
70  }  }
71    
Legend:
Removed from v.97  
changed lines
  Added in v.129
  ViewVC Help
Powered by ViewVC 1.1.26