--- trunk/lib/WebPAC/Search/Estraier.pm 2006/01/02 18:39:55 342 +++ trunk/lib/WebPAC/Search/Estraier.pm 2006/01/07 01:40:01 343 @@ -3,7 +3,7 @@ use warnings; use strict; -use HyperEstraier; +use Search::Estraier; use Text::Iconv; use Data::Dumper; @@ -13,11 +13,11 @@ =head1 VERSION -Version 0.05 +Version 0.06 =cut -our $VERSION = '0.05'; +our $VERSION = '0.06'; =head1 SYNOPSIS @@ -90,8 +90,9 @@ $log->info("opening Hyper Estraier index $self->{'url'} as $self->{'user'}"); - $self->{'db'} = HyperEstraier::Node->new($self->{'url'}); - $self->{'db'}->set_auth($self->{'user'}, $self->{'passwd'}); + $self->{db} = Search::Estraier::Node->new; + $self->{db}->set_url($self->{'url'}); + $self->{db}->set_auth($self->{'user'}, $self->{'passwd'}); my $encoding = $self->{'encoding'} || 'ISO-8859-2'; $log->info("using encoding $encoding"); @@ -148,7 +149,7 @@ $log->debug("args: " . Dumper( $args )); - my $cond = HyperEstraier::Condition->new(); + my $cond = Search::Estraier::Condition->new(); if ( ref($args->{add_attr}) eq 'ARRAY' ) { $log->debug("adding search attributes: " . join(", ", @{ $args->{add_attr} }) ); map {