/[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 674 by dpavlin, Tue Sep 12 14:47:25 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 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 163  sub add { Line 163  sub add {
163    
164          # store type and database name          # store type and database name
165          $doc->add_attr('_database', $database );          $doc->add_attr('_database', $database );
166            $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 178  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    
# Line 201  sub add { Line 202  sub add {
202          }          }
203    
204          $log->debug("adding ", sub { $doc->dump_draft } );          $log->debug("adding ", sub { $doc->dump_draft } );
205          $self->{'db'}->put_doc($doc, Database::PDCLEAN) || $log->warn("can't add document $uri with draft " . $doc->dump_draft . " to node " . $self->{path} . " status: " . $self->{db}->status());          $self->{'db'}->put_doc($doc, Database::PDCLEAN) || $log->warn("can't add document $uri with draft " . $doc->dump_draft . " to node " . $self->{path} . " status: " . $self->{db}->error());
206    
207          return 1;          return 1;
208  }  }
Legend:
Removed from v.674  
changed lines
  Added in v.887
  ViewVC Help
Powered by ViewVC 1.1.26