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

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

revision 886 by dpavlin, Fri Aug 25 16:20:21 2006 UTC revision 887 by dpavlin, Mon Sep 3 15:26:46 2007 UTC
# Line 8  use base qw/WebPAC::Common/; Line 8  use base qw/WebPAC::Common/;
8  use KinoSearch::InvIndexer;  use KinoSearch::InvIndexer;
9  use KinoSearch::Analysis::PolyAnalyzer;  use KinoSearch::Analysis::PolyAnalyzer;
10  use Encode qw/from_to/;  use Encode qw/from_to/;
11  use Data::Dumper;  use Data::Dump qw/dump/;
12  use Storable;  use Storable;
13    
14  =head1 NAME  =head1 NAME
# Line 80  sub new { Line 80  sub new {
80    
81          my $log = $self->_get_logger;          my $log = $self->_get_logger;
82    
83          #$log->debug("self: ", sub { Dumper($self) });          #$log->debug("self: ", sub { dump($self) });
84    
85          foreach my $p (qw/index_path fields database/) {          foreach my $p (qw/index_path fields database/) {
86                  $log->logdie("need $p") unless ($self->{$p});                  $log->logdie("need $p") unless ($self->{$p});
# Line 185  sub add { Line 185  sub add {
185    
186          _add_value($self,$log,$doc, 'uri', $uri);          _add_value($self,$log,$doc, 'uri', $uri);
187    
188          $log->debug("ds = ", sub { Dumper($args->{'ds'}) } );          $log->debug("ds = ", sub { dump($args->{'ds'}) } );
189    
190          # filter all tags which have type defined          # filter all tags which have type defined
191          my @tags = grep {          my @tags = grep {
Legend:
Removed from v.886  
changed lines
  Added in v.887
  ViewVC Help
Powered by ViewVC 1.1.26