]> wagnertech.de Git - mfinanz.git/blobdiff - SL/DB/RequirementSpecItem.pm
Verknüpfte Belege: nur Arbeitskopien bei Pflichtenheften anzeigen
[mfinanz.git] / SL / DB / RequirementSpecItem.pm
index 49d9158459c67d0d31ebbe1a0d31953714c06107..433e844e5e6b3b36608bff08e3900ae453f88445 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;
@@ -55,8 +56,8 @@ sub _before_save_create_fb_number {
 
   $self->requirement_spec->update_attributes($method => $next_number) || return 0;
 
-  $method    = 'requirement_spec_' . ($self->parent_id ? 'function_block' : 'section') . '_number_format';
-  my $format = SL::DB::Default->get->$method;
+  $method    = ($self->parent_id ? 'function_block' : 'section') . '_number_format';
+  my $format = $self->requirement_spec->type->$method;
 
   $self->fb_number(SL::PrefixedNumber->new(number => $format || 0)->set_to($next_number));
 
@@ -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__