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

diff --git a/lib/WebPAC/Search/Estraier.pm b/lib/WebPAC/Search/Estraier.pm
index b11d76e..a6f8b73 100644 (file)
--- 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});