--- trunk/lib/WebPAC/Output/Estraier.pm 2006/05/21 19:38:56 524 +++ trunk/lib/WebPAC/Output/Estraier.pm 2006/05/22 18:26:56 525 @@ -18,11 +18,11 @@ =head1 VERSION -Version 0.11 +Version 0.12 =cut -our $VERSION = '0.11'; +our $VERSION = '0.12'; =head1 SYNOPSIS @@ -99,16 +99,18 @@ my $url = $self->{masterurl} . '/node/' . $self->{database}; $self->{url} = $url; + $self->{label} ||= "WebPAC $self->{database}"; + $self->{db} = Search::Estraier::Node->new( url => $url, user => $self->{user}, passwd => $self->{passwd}, debug => $self->{debug}, create => 1, - label => "WebPAC $self->{database}", + label => $self->convert( $self->{label} ), ); - $log->info("using ", $self->{clean} ? "new " : "", "index $self->{url} with encoding $self->{encoding}"); + $log->info("using ", $self->{clean} ? "new " : "", "index $self->{url} '$self->{label}' with encoding $self->{encoding}"); if ($self->{clean}) { $log->debug("clean $self->{database}");