r1513@llin: dpavlin | 2007-11-04 12:58:09 +0100

 dump field usage counts in debug log

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@987 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Output/KinoSearch.pm b/lib/WebPAC/Output/KinoSearch.pm
index 21fcc61..48dd45c 100644 (file)
--- a/lib/WebPAC/Output/KinoSearch.pm
+++ b/lib/WebPAC/Output/KinoSearch.pm
@@ -147,6 +147,7 @@ sub add {
                        $hash->{$f} = join(' <*> ', @{ $hash->{$f} });
                }
 #              $hash->{$f} = decode( $self->encoding, $hash->{$f} );
+               $self->{field_count}->{$f}++;
        }
 
        $log->debug("add( $id, ", sub { dump($ds) }," ) => ", sub { dump( $hash ) });
@@ -173,6 +174,8 @@ sub finish {
 
        $log->info("indexed ", $self->{count}, " records");
 
+       $log->debug("field usage: ", dump( $self->{field_count} ));
+
 }
 
 =head1 AUTHOR