/[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 886 by dpavlin, Mon May 22 19:34:28 2006 UTC revision 887 by dpavlin, Mon Sep 3 15:26:46 2007 UTC
# Line 7  use base qw/WebPAC::Common/; Line 7  use base qw/WebPAC::Common/;
7    
8  use Search::Estraier 0.06;  use Search::Estraier 0.06;
9  use Encode qw/from_to/;  use Encode qw/from_to/;
10  use Data::Dumper;  use Data::Dump qw/dump/;
11  use LWP;  use LWP;
12  use URI::Escape;  use URI::Escape;
13  use List::Util qw/first/;  use List::Util qw/first/;
# Line 88  sub new { Line 88  sub new {
88    
89          my $log = $self->_get_logger;          my $log = $self->_get_logger;
90    
91          #$log->debug("self: ", sub { Dumper($self) });          #$log->debug("self: ", sub { dump($self) });
92    
93          foreach my $p (qw/masterurl user passwd database/) {          foreach my $p (qw/masterurl user passwd database/) {
94                  $log->logdie("need $p") unless ($self->{$p});                  $log->logdie("need $p") unless ($self->{$p});
# Line 166  sub add { Line 166  sub add {
166          my $doc = Search::Estraier::Document->new;          my $doc = Search::Estraier::Document->new;
167          $doc->add_attr('@uri', $self->convert($uri) );          $doc->add_attr('@uri', $self->convert($uri) );
168    
169          $log->debug("ds = ", sub { Dumper($args->{'ds'}) } );          $log->debug("ds = ", sub { dump($args->{'ds'}) } );
170    
171          # filter all tags which have type defined          # filter all tags which have type defined
172          my @tags = grep {          my @tags = grep {
Legend:
Removed from v.886  
changed lines
  Added in v.887
  ViewVC Help
Powered by ViewVC 1.1.26