X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/d90408d8d3aa5db131d333144b5ef7c1bd372b2a..8388c9bf9ba2e2a1fe5b49b4797ed74d1a42a1dc:/SL/DB/RequirementSpecTextBlock.pm diff --git a/SL/DB/RequirementSpecTextBlock.pm b/SL/DB/RequirementSpecTextBlock.pm index 50851ad78..832d3414f 100644 --- 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) = @_; - - 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));