/[webpac2]/trunk/lib/WebPAC/Search/Estraier.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 /trunk/lib/WebPAC/Search/Estraier.pm

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

revision 211 by dpavlin, Mon Dec 5 17:47:10 2005 UTC revision 216 by dpavlin, Mon Dec 5 17:47:45 2005 UTC
# Line 13  WebPAC::Search::Estraier - search Hyper Line 13  WebPAC::Search::Estraier - search Hyper
13    
14  =head1 VERSION  =head1 VERSION
15    
16  Version 0.04  Version 0.05
17    
18  =cut  =cut
19    
20  our $VERSION = '0.04';  our $VERSION = '0.05';
21    
22  =head1 SYNOPSIS  =head1 SYNOPSIS
23    
# Line 86  sub new { Line 86  sub new {
86          }          }
87    
88          my $url = $self->{masterurl} . '/node/' . $self->{database};          my $url = $self->{masterurl} . '/node/' . $self->{database};
         $url =~ s#//#/#g;  
89          $self->{url} = $url;          $self->{url} = $url;
90    
91          $log->info("opening Hyper Estraier index $self->{'url'} as $self->{'user'}");          $log->info("opening Hyper Estraier index $self->{'url'} as $self->{'user'}");
# Line 119  Locate items in index Line 118  Locate items in index
118          max => 100,          max => 100,
119          options => $HyperEstraier::Condition::SURE,          options => $HyperEstraier::Condition::SURE,
120          page => 42,          page => 42,
121            depth => 0,
122    );    );
123    
124  Options are close match to Hyper Estraier API, except C<get_attr> which defines  Options are close match to Hyper Estraier API, except C<get_attr> which defines
# Line 170  sub search { Line 170  sub search {
170    
171          $cond->set_max( $page * $max );          $cond->set_max( $page * $max );
172    
173          my $result = $self->{db}->search($cond, 0) ||          my $result = $self->{db}->search($cond, ( $args->{depth} || 0 )) ||
174                  $log->die("can't search for ", sub { Dumper( $args ) });                  $log->die("can't search for ", sub { Dumper( $args ) });
175    
176          my $hits = $result->doc_num;          my $hits = $result->doc_num;
Legend:
Removed from v.211  
changed lines
  Added in v.216
  ViewVC Help
Powered by ViewVC 1.1.26