/[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 22 by dpavlin, Fri Sep 16 17:29:53 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;          unless ($self->{'node'}->out_doc_by_uri( 'file://' . $key_v )) {
977          $doc->add_attr('@uri', 'file:///' . $key_v);                  print STDERR "WARNING: can't delete document $key_v\n";
978                    }
 #       $self->{'node'}->edit_doc($doc);  
         $self->{'node'}->put_doc($doc) or printf STDERR "ERROR: %d\n", $self->{'node'}->status;  
979  }  }
980    
981  =head2 delete  =head2 delete
Legend:
Removed from v.20  
changed lines
  Added in v.22
  ViewVC Help
Powered by ViewVC 1.1.26