]> wagnertech.de Git - mfinanz.git/blobdiff - SL/DB/RequirementSpecItem.pm
Pflichtenheftitems & -textblöcke: Tooltips im Baum mit Inhaltsauszug anzeigen
[mfinanz.git] / SL / DB / RequirementSpecItem.pm
index 35acefcb6acb98fd09951313f746e3cbeb20bb95..dc710b4de5a18c02e9f74d013b2f6d1c300d704b 100644 (file)
@@ -7,6 +7,7 @@ use List::MoreUtils qw(any);
 use Rose::DB::Object::Helpers;
 use Rose::DB::Object::Util;
 
+use SL::Common ();
 use SL::DB::MetaSetup::RequirementSpecItem;
 use SL::DB::Manager::RequirementSpecItem;
 use SL::DB::Helper::ActsAsList;
@@ -66,7 +67,7 @@ sub _before_save_create_fb_number {
 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 $has_changed     = !Rose::DB::Object::Util::is_in_db($self);
@@ -124,6 +125,13 @@ sub child_type {
   return $self->item_type eq 'section' ? 'function-block' : 'sub-function-block';
 }
 
+sub content_excerpt {
+  my ($self) = @_;
+
+  return Common::truncate($self->description // '', at => 200);
+}
+
+
 1;
 __END__