Pflichtenhefte: nach Änderung an Textblöcken Version invalidieren

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

diff --git a/SL/DB/RequirementSpec.pm b/SL/DB/RequirementSpec.pm
index e2ac8b10fcb045bb151d4829d0b6c274fc028038..c25c289d933e212978755efb126a3295dd6ebe0b 100644 (file)
--- a/SL/DB/RequirementSpec.pm
+++ b/SL/DB/RequirementSpec.pm
@@ -173,4 +173,14 @@ sub create_version {
   return $ok ? ($copy, $version) : ();
 }
 
+sub invalidate_version {
+  my ($self, %params) = @_;
+
+  $::lxdebug->message(0, "Invalidate version called for id " . $self->id . " version " . $self->version_id);
+  $::lxdebug->show_backtrace(1);
+
+  return if !$self->id || !$self->version_id;
+  $self->update_attributes(version_id => undef);
+}
+
 1;