From 3519f5c92ddc3067ea76d3fd65911c0d9284b86d Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Wed, 23 Nov 2005 21:53:01 +0000 Subject: [PATCH] r9074@llin: dpavlin | 2005-11-23 22:21:48 +0100 fixes git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@123 07558da8-63fa-0310-ba24-9fe276d99e06 --- lib/WebPAC/Search/Estraier.pm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lib/WebPAC/Search/Estraier.pm b/lib/WebPAC/Search/Estraier.pm index b11d76e..a6f8b73 100644 --- a/lib/WebPAC/Search/Estraier.pm +++ b/lib/WebPAC/Search/Estraier.pm @@ -132,14 +132,16 @@ sub search { my $q = $args->{phrase}; + $log->debug("args: " . Dumper( $args )); + my $cond = HyperEstraier::Condition->new(); if ( ref($args->{add_attr}) eq 'ARRAY' ) { $log->debug("adding search attributes: " . join(", ", @{ $args->{add_attr} }) ); map { - $cond->add_attr( $self->{iconv}->conver( $_ ) ); + $cond->add_attr( $self->{iconv}->convert( $_ ) ); $log->debug(" + $_"); - } $args->{add_attr}; - } + } @{ $args->{add_attr} }; + }; $cond->set_phrase( $self->{iconv}->convert($q) ) if ($q); $cond->set_max( $args->{max} ) if ($args->{max}); -- 2.20.1