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 $doc = HyperEstraier::Document->new; |
my $id = $self->{'node'}->uri_to_id( 'file://' . $key_v ); |
977 |
$doc->add_attr('@uri', 'file:///' . $key_v); |
|
978 |
|
if ($id == -1) { |
979 |
# $self->{'node'}->edit_doc($doc); |
print STDERR "WARNING: can't delete document uri file://$key_v\n"; |
980 |
$self->{'node'}->put_doc($doc) or printf STDERR "ERROR: %d\n", $self->{'node'}->status; |
return; |
981 |
|
} |
982 |
|
|
983 |
|
unless ($self->{'node'}->out_doc($id)) { |
984 |
|
print STDERR "WARNING: can't out_doc($id)\n"; |
985 |
|
} |
986 |
} |
} |
987 |
|
|
988 |
=head2 delete |
=head2 delete |