/[Search-Estraier]/trunk/lib/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!

Diff of /trunk/lib/Search/Estraier.pm

Parent Directory | Revision Log | View Patch Patch

-revision 166 by dpavlin,
Sun Aug  6 12:48:02 2006 UTC
+revision 191 by dpavlin,
Sun Nov  5 16:26:57 2006 UTC
 Line 4 
 use 5.008;
  use strict;
  use warnings;
- our $VERSION = '0.07_3';
+ our $VERSION = '0.08';
  =head1 NAME
 Line 188 
 sub new {
                                          warn "can't decode $line\n";
                                  }
                                  next;
+                         } elsif ($line =~ m/^%SCORE\t(.+)$/) {
+                             $self->{score} = $1;
+                             next;
                          } elsif ($line =~ m/^%/) {
                                  # What is this? comment?
                                  #warn "$line\n";
-Line 290 
 sub add_vectors {
+Line 293 
 sub add_vectors {
          $self->{kwords} = {@_};
  }
+ =head2 set_score
+ Set the substitute score
+   $doc->set_score(12345);
+ =cut
+ sub set_score {
+     my $self = shift;
+     my $score = shift;
+     return unless (defined($score));
+     $self->{score} = $score;
+ }
+ =head2 score
+ Get the substitute score
+ =cut
+ sub score {
+     my $self = shift;
+     return -1 unless (defined($self->{score}));
+     return $self->{score};
+ }
  =head2 id
-Line 391 
 sub dump_draft {
+Line 420 
 sub dump_draft {
                  $draft .= "\n";
          }
+         if (defined($self->{score}) && $self->{score} >= 0) {
+             $draft .= "%SCORE\t" . $self->{score} . "\n";
+         }
          $draft .= "\n";
          $draft .= join("\n", @{ $self->{dtexts} }) . "\n" if ($self->{dtexts});
-Line 678 
 sub skip {
+Line 711 
 sub skip {
  }
+ =head2 set_distinct
+   $cond->set_distinct('@author');
+ =cut
+ sub set_distinct {
+         my $self = shift;
+         $self->{distinct} = shift;
+ }
+ =head2 distinct
+ Return distinct attribute
+   print $cond->distinct;
+ =cut
+ sub distinct {
+         my $self = shift;
+         return $self->{distinct};
+ }
+ =head2 set_mask
+ Filter out some links when searching.
+ Argument array of link numbers, starting with 0 (current node).
+   $cond->set_mask(qw/0 1 4/);
+ =cut
+ sub set_mask {
+         my $self = shift;
+         return unless (@_);
+         $self->{mask} = \@_;
+ }
  package Search::Estraier::ResultDocument;
  use Carp qw/croak/;
-Line 1353 
 sub _fetch_doc {
+Line 1427 
 sub _fetch_doc {
          $path = '/etch_doc' if ($a->{etch});
          if ($a->{id}) {
-                 croak "id must be numberm not '$a->{id}'" unless ($a->{id} =~ m/^\d+$/);
+                 croak "id must be number not '$a->{id}'" unless ($a->{id} =~ m/^\d+$/);
                  $arg = 'id=' . $a->{id};
          } elsif ($a->{uri}) {
                  $arg = 'uri=' . uri_escape($a->{uri});
-Line 1564 
 sub cond_to_query {
+Line 1638 
 sub cond_to_query {
          push @args, 'awidth=' . $self->{awidth};
          push @args, 'skip=' . $cond->{skip} if ($cond->{skip});
+         if (my $distinct = $cond->distinct) {
+                 push @args, 'distinct=' . uri_escape($distinct);
+         }
+         if ($cond->{mask}) {
+                 my $mask = 0;
+                 map { $mask += ( 2 ** $_ ) } @{ $cond->{mask} };
+                 push @args, 'mask=' . $mask if ($mask);
+         }
          return join('&', @args);
  }

 Legend:



Removed from v.166
 


changed lines


 
Added in v.191
 Legend:



Removed from v.166
 


changed lines


 
Added in v.191
-Removed from v.166
+Added in v.191

	ViewVC Help
Powered by ViewVC 1.1.26