/[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 809 by dpavlin, Sun Apr 1 21:47:36 2007 UTC
# 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 { Dumper($args->{'ds'}) } );
# 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.809
  ViewVC Help
Powered by ViewVC 1.1.26