/[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 1080 by dpavlin, Sun Nov 4 17:03:55 2007 UTC revision 1081 by dpavlin, Sun Dec 2 03:00:07 2007 UTC
# Line 121  use WebPAC::Store; Line 121  use WebPAC::Store;
121    
122  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
123    
124  my $debug = 1;  my $debug = 0;
125    
126  my $store;  my $store;
127    
# Line 169  sub next { Line 169  sub next {
169          }          }
170    
171          # add permanent fields          # add permanent fields
172          $ds->{$_} ||= { display => $hit->{$_} } foreach ( qw/database input id/ );          $ds->{$_} ||= { display => $hit->{$_} } foreach ( qw/
173                    database input id
174                    score
175            / );
176    
177          return Webpacus::Action::DS->new( $ds );          return Webpacus::Action::DS->new( $ds );
178    
# Line 188  sub new { Line 191  sub new {
191    
192          my ( $ds ) = @_;          my ( $ds ) = @_;
193    
194      my $self = {          my $self = {
195                  ds => $ds,                  ds => $ds,
196          };          };
197          bless ($self, $class);          bless ($self, $class);
Legend:
Removed from v.1080  
changed lines
  Added in v.1081
  ViewVC Help
Powered by ViewVC 1.1.26