/[hyperestraier_wrappers]/trunk/perl/scripts/cpanest
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/perl/scripts/cpanest

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

revision 23 by dpavlin, Fri Sep 16 23:29:27 2005 UTC revision 24 by dpavlin, Sat Sep 17 00:48:32 2005 UTC
# Line 966  sub insert { Line 966  sub insert {
966          print STDERR $doc->dump_draft if ($self->{'debug'});          print STDERR $doc->dump_draft if ($self->{'debug'});
967    
968          my $id;          my $id;
969          unless ($id = $self->{'node'}->put_doc($doc)) {          unless ($self->{'node'}->put_doc($doc)) {
970                  printf STDERR "ERROR: %d\n", $self->{'node'}->status;                  printf STDERR "ERROR: %d\n", $self->{'node'}->status;
971          #} else {          } else {
972          #       print STDERR "id: $id\n";                  $id = $self->{'node'}->uri_to_id( $uri );
973                    if ($id != -1) {
974                            print STDERR "id: $id\n" if ($self->{'debug'})
975                    } else {
976                            print STDERR "ERROR: can't find id for newly insrted document $uri\n";
977                    }
978          }          }
979    
980          return $id;          return $id;

Legend:
Removed from v.23  
changed lines
  Added in v.24

  ViewVC Help
Powered by ViewVC 1.1.26