--- trunk/lib/WebPAC/Search/Estraier.pm 2005/11/22 08:27:53 85 +++ trunk/lib/WebPAC/Search/Estraier.pm 2005/11/22 08:37:40 86 @@ -120,10 +120,12 @@ $log->logconfess("need attr as array not " . ref($args->{'attr'}) ) unless (ref($args->{'attr'}) eq 'ARRAY'); + my $q = $args->{'query'}; + my $cond = HyperEstraier::Condition->new(); # $cond->add_attr("filepath ISTRINC $q"); - $cond->set_phrase( $args->{'query'} ) if ($args->{'query'}); + $cond->set_phrase( $self->{'iconv'}->convert( $q ) ) if ($q); $cond->set_max( $args->{'max'} ) if ($args->{'max'}); # $cond->set_options( $HyperEstraier::Condition::SURE ); # $cond->set_order( 'NUMD' ); @@ -132,13 +134,13 @@ $log->die("can't search for ", sub { Dumper( $args ) }); my $hits = $result->doc_num; - $log->debug("found $hits hits"); + $log->debug("found $hits hits for '$q'"); my @results; for my $i ( 0 .. ( $hits - 1 ) ) { - $log->debug("get_doc($i)"); + #$log->debug("get_doc($i)"); my $doc = $result->get_doc( $i ); if (! $doc) { $log->warn("can't find result $i"); @@ -149,7 +151,7 @@ foreach my $attr (@{ $args->{'attr'} }) { my $val = $doc->attr( $attr ); - $log->debug("attr $attr = ", $val || 'undef'); + #$log->debug("attr $attr = ", $val || 'undef'); $hash->{$attr} = $self->{'iconv'}->convert( $val ) if (defined($val)); }