/[webpac2]/trunk/lib/WebPAC/Output/Estraier.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Output/Estraier.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 524 by dpavlin, Sun May 14 22:23:28 2006 UTC revision 525 by dpavlin, Mon May 22 18:26:56 2006 UTC
# Line 18  WebPAC::Output::Estraier - Create Hyper Line 18  WebPAC::Output::Estraier - Create Hyper
18    
19  =head1 VERSION  =head1 VERSION
20    
21  Version 0.11  Version 0.12
22    
23  =cut  =cut
24    
25  our $VERSION = '0.11';  our $VERSION = '0.12';
26    
27  =head1 SYNOPSIS  =head1 SYNOPSIS
28    
# Line 99  sub new { Line 99  sub new {
99          my $url = $self->{masterurl} . '/node/' . $self->{database};          my $url = $self->{masterurl} . '/node/' . $self->{database};
100          $self->{url} = $url;          $self->{url} = $url;
101    
102            $self->{label} ||= "WebPAC $self->{database}";
103    
104          $self->{db} = Search::Estraier::Node->new(          $self->{db} = Search::Estraier::Node->new(
105                  url => $url,                  url => $url,
106                  user => $self->{user},                  user => $self->{user},
107                  passwd => $self->{passwd},                  passwd => $self->{passwd},
108                  debug => $self->{debug},                  debug => $self->{debug},
109                  create => 1,                  create => 1,
110                  label => "WebPAC $self->{database}",                  label => $self->convert( $self->{label} ),
111          );          );
112    
113          $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}");
114    
115          if ($self->{clean}) {          if ($self->{clean}) {
116                  $log->debug("clean $self->{database}");                  $log->debug("clean $self->{database}");
Legend:
Removed from v.524  
changed lines
  Added in v.525
  ViewVC Help
Powered by ViewVC 1.1.26