973 |
my $self = shift; |
my $self = shift; |
974 |
my $key_v = shift || die "no key?"; |
my $key_v = shift || die "no key?"; |
975 |
|
|
976 |
my $id = $self->{'node'}->uri_to_id( 'file://' . $key_v ); |
unless ($self->{'node'}->out_doc_by_uri( 'file://' . $key_v )) { |
977 |
|
print STDERR "WARNING: can't delete document $key_v\n"; |
|
if ($id == -1) { |
|
|
print STDERR "WARNING: can't delete document uri file://$key_v\n"; |
|
|
return; |
|
|
} |
|
|
|
|
|
unless ($self->{'node'}->out_doc($id)) { |
|
|
print STDERR "WARNING: can't out_doc($id)\n"; |
|
978 |
} |
} |
979 |
} |
} |
980 |
|
|