/[webpac2]/trunk/lib/WebPAC/Output/EstraierNative.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/EstraierNative.pm

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

revision 886 by dpavlin, Sun Apr 1 21:47:36 2007 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 Estraier;  use Estraier;
9  use Encode qw/from_to/;  use Encode qw/from_to/;
10  use Data::Dumper;  use Data::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 82  sub new { Line 82  sub new {
82    
83          my $log = $self->_get_logger;          my $log = $self->_get_logger;
84    
85          #$log->debug("self: ", sub { Dumper($self) });          #$log->debug("self: ", sub { dump($self) });
86    
87          foreach my $p (qw/path database/) {          foreach my $p (qw/path database/) {
88                  $log->logdie("need $p") unless ($self->{$p});                  $log->logdie("need $p") unless ($self->{$p});
# Line 166  sub add { Line 166  sub add {
166          $doc->add_hidden_text('_database:' . $database);          $doc->add_hidden_text('_database:' . $database);
167          $doc->add_attr('_type', $type );          $doc->add_attr('_type', $type );
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 {
# Line 179  sub add { Line 179  sub add {
179    
180          foreach my $tag (@tags) {          foreach my $tag (@tags) {
181    
182                  $log->debug("$tag :: $type == ",Dumper( $args->{'ds'}->{$tag}->{$type} ) );                  $log->debug("$tag :: $type == ",dump( $args->{'ds'}->{$tag}->{$type} ) );
183    
184                  my $vals = join(" ", @{ $args->{'ds'}->{$tag}->{$type} });                  my $vals = join(" ", @{ $args->{'ds'}->{$tag}->{$type} });
185    
Legend:
Removed from v.886  
changed lines
  Added in v.887
  ViewVC Help
Powered by ViewVC 1.1.26