/[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 917 by dpavlin, Tue Oct 30 21:57:36 2007 UTC revision 925 by dpavlin, Wed Oct 31 00:38:38 2007 UTC
# Line 25  WebPAC::Output::KinoSearch - Create Kino Line 25  WebPAC::Output::KinoSearch - Create Kino
25    
26  =head1 VERSION  =head1 VERSION
27    
28  Version 0.04  Version 0.05
29    
30  =cut  =cut
31    
32  our $VERSION = '0.04';  our $VERSION = '0.05';
33    
34  =head1 SYNOPSIS  =head1 SYNOPSIS
35    
# Line 93  sub init { Line 93  sub init {
93          if ( ! -e $self->path ) {          if ( ! -e $self->path ) {
94                  mkpath $self->path || $log->logdie("can't create ", $self->path,": $!");                  mkpath $self->path || $log->logdie("can't create ", $self->path,": $!");
95                  $log->info("created ", $self->path);                  $log->info("created ", $self->path);
96            } elsif ( $self->clean ) {
97                    $log->info("removing existing ", $self->path);
98                    rmtree $self->path || $log->logdie("can't remove ", $self->path,": $!");
99                    mkpath $self->path || $log->logdie("can't create ", $self->path,": $!");
100          }          }
101    
102          my $path = $self->path . '/' . $self->database;          my $path = $self->path . '/' . $self->database;
# Line 128  sub add { Line 132  sub add {
132          $log->logdie("need id") unless defined $id;          $log->logdie("need id") unless defined $id;
133          $log->logdie("need ds") unless $ds;          $log->logdie("need ds") unless $ds;
134    
135          $log->debug("id: $id ds = ",dump($ds));          $log->debug("id: $id ds = ", sub { dump($ds) });
136    
137          my $hash = $self->ds_to_hash( $ds, 'search' ) || return;          my $hash = $self->ds_to_hash( $ds, 'search' ) || return;
138    
139          warn "add( $id, ",dump($ds)," ) => ", dump( $hash );          $hash->{database} ||= $self->database;
140            $hash->{id} ||= $id;
141    
142            foreach my $f ( keys %$hash ) {
143                    if ( ref($hash->{$f}) eq 'ARRAY' ) {
144                            $hash->{$f} = join(' <*> ', @{ $hash->{$f} });
145                    }
146            }
147    
148            $log->debug("add( $id, ", sub { dump($ds) }," ) => ", sub { dump( $hash ) });
149    
150          $self->index->add_doc( $hash );          $self->index->add_doc( $hash );
151    
152            $self->{count}++;
153    
154          return 1;          return 1;
155  }  }
156    
# Line 152  sub finish { Line 167  sub finish {
167    
168          my $log = $self->_get_logger();          my $log = $self->_get_logger();
169    
170          $log->info("dummy finish");          $log->info("indexed ", $self->{count}, " records");
171    
172  }  }
173    
Legend:
Removed from v.917  
changed lines
  Added in v.925
  ViewVC Help
Powered by ViewVC 1.1.26