/[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 619 by dpavlin, Tue Aug 1 18:20:59 2006 UTC revision 620 by dpavlin, Fri Aug 25 16:20:21 2006 UTC
# Line 172  sub add { Line 172  sub add {
172    
173          my $doc = $self->{invindex}->new_doc( $uri ) || $log->logdie("can't create new_doc( $uri )");          my $doc = $self->{invindex}->new_doc( $uri ) || $log->logdie("can't create new_doc( $uri )");
174    
175          sub add_value($$$$$) {          sub _add_value($$$$$) {
176                  my ($self,$log,$doc,$n,$v) = @_;                  my ($self,$log,$doc,$n,$v) = @_;
177                  return unless ($v);                  return unless ($v);
178    
# Line 183  sub add { Line 183  sub add {
183                  $log->warn("can't insert: $n = $v") if ($@);                  $log->warn("can't insert: $n = $v") if ($@);
184          }          }
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 { Dumper($args->{'ds'}) } );
189    
# Line 205  sub add { Line 205  sub add {
205                  $vals = $self->convert( $vals ) or                  $vals = $self->convert( $vals ) or
206                          $log->logdie("can't convert '$vals' to UTF-8");                          $log->logdie("can't convert '$vals' to UTF-8");
207    
208                  add_value($self, $log, $doc, $tag, $vals );                  _add_value($self, $log, $doc, $tag, $vals );
209          }          }
210    
211          if (my $text = $args->{'text'}) {          if (my $text = $args->{'text'}) {
212                  add_value($self, $log, $doc, 'bodytext', $text );                  _add_value($self, $log, $doc, 'bodytext', $text );
213          }          }
214    
215          #$log->debug("adding ", sub { $doc->dump_draft } );          #$log->debug("adding ", sub { $doc->dump_draft } );
Legend:
Removed from v.619  
changed lines
  Added in v.620
  ViewVC Help
Powered by ViewVC 1.1.26