X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/03f5aaa3c601956206f0c2a142c1e19f6981b326..f3aa68189371cfcbde72a40f4a909356e14e3c94:/SL/DB/RequirementSpec.pm

diff --git a/SL/DB/RequirementSpec.pm b/SL/DB/RequirementSpec.pm
index 5cfb5dcfe..12afb2483 100644
--- a/SL/DB/RequirementSpec.pm
+++ b/SL/DB/RequirementSpec.pm
@@ -156,29 +156,6 @@ sub copy_from {
   return $self;
 }
 
-sub delete_items {
-  my ($self) = @_;
-
-  my $worker = sub {
-    # First convert all items to sections so that deleting won't
-    # violate foreign key constraints on parent_id.
-    SL::DB::Manager::RequirementSpecItem->update_all(
-      set   => { parent_id => undef, item_type => 'section' },
-      where => [
-        requirement_spec_id => $self->id,
-        '!parent_id'        => undef,
-      ]);
-
-    # Now delete all items in one go.
-    SL::DB::Manager::RequirementSpecItem->delete_all(where => [ requirement_spec_id => $self->id ]);
-
-    # Last clear values in ourself.
-    $self->items([]);
-  };
-
-  return $self->db->in_transaction ? $worker->() : $self->db->do_transaction($worker);
-}
-
 sub previous_version {
   my ($self) = @_;