/[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 21 by dpavlin, Fri Sep 16 17:26:03 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 $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    

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

  ViewVC Help
Powered by ViewVC 1.1.26