/[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 20 by dpavlin, Fri Sep 16 14:33:53 2005 UTC revision 21 by dpavlin, Fri Sep 16 17:26:03 2005 UTC
# Line 973  sub delete_by_key { Line 973  sub delete_by_key {
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

Legend:
Removed from v.20  
changed lines
  Added in v.21

  ViewVC Help
Powered by ViewVC 1.1.26