Pflichtenheft: Liste auf Filtered-Helfer umgestellt

[mfinanz.git] / SL / DB / RequirementSpecTextBlock.pm

diff --git a/SL/DB/RequirementSpecTextBlock.pm b/SL/DB/RequirementSpecTextBlock.pm
index 50851ad78eab9fbdc3d64828c32d326a19c5cd36..832d3414f099d1b89c15d7a3457b6c50ce620819 100644 (file)
--- a/SL/DB/RequirementSpecTextBlock.pm
+++ b/SL/DB/RequirementSpecTextBlock.pm
@@ -30,8 +30,7 @@ sub validate {
 sub _before_save_invalidate_requirement_spec_version {
   my ($self, %params) = @_;
 
 sub _before_save_invalidate_requirement_spec_version {
   my ($self, %params) = @_;
 

-
-  return 1 if !$self->requirement_spec_id;
+  return 1 if !$self->requirement_spec_id || $self->requirement_spec->working_copy_id;

 
   my %changed_columns = map { $_ => 1 } (Rose::DB::Object::Helpers::dirty_columns($self));
 
 
   my %changed_columns = map { $_ => 1 } (Rose::DB::Object::Helpers::dirty_columns($self));