Dialogbuchung - Buchen, Storno und Löschen protokollieren
[kivitendo-erp.git] / SL / Clipboard / RequirementSpecItem.pm
1 package SL::Clipboard::RequirementSpecItem;
2
3 use strict;
4
5 use parent qw(SL::Clipboard::Base);
6
7 use List::Util qw(sum);
8
9 use SL::Common;
10 use SL::Locale::String;
11
12 sub dump {
13   my ($self, $object) = @_;
14
15   return $self->as_tree(_load_children($self->reload_object($object)), exclude => sub { ref($_[0]) !~ m/::RequirementSpecItem$/ });
16 }
17
18 sub describe {
19   my ($self) = @_;
20
21   my $item              = $self->content;
22   my $num_children      = @{ $item->{children} || [] };
23   my $num_grandchildren = sum map { scalar(@{ $_->{children} || [] }) } @{ $item->{children} || [] };
24
25   if ($item->{item_type} eq 'section') {
26     return t8('Requirement spec section #1 "#2" with #3 function blocks and a total of #4 sub function blocks; preamble: "#5"',
27               $item->{fb_number}, $item->{title}, $num_children, $num_grandchildren, Common::truncate($item->{description}, strip => 'full'));
28   } elsif ($item->{item_type} eq 'function-block') {
29     return t8('Requirement spec function block #1 with #2 sub function blocks; description: "#3"',
30               $item->{fb_number}, $num_children, Common::truncate($item->{description}, strip => 'full'));
31   } else {
32     return t8('Requirement spec sub function block #1; description: "#2"',
33               $item->{fb_number}, Common::truncate($item->{description}, strip => 'full'));
34   }
35 }
36
37 sub _load_children {
38   my ($object) = @_;
39
40   _load_children($_) for @{ $object->children };
41
42   return $object;
43 }
44
45 sub _fix_object {
46   my ($self, $object) = @_;
47
48   $object->$_(undef)     for qw(fb_number);
49   $self->_fix_object($_) for @{ $object->children || [] };
50 }
51
52 sub _fix_tree {
53   my ($self, $tree, $object) = @_;
54
55   delete @{ $tree }{ qw(id itime mtime parent_id position requirement_spec_id) };
56   $self->_fix_tree($_) for @{ $tree->{children} || [] };
57 }
58
59 1;
60 __END__
61
62 =pod
63
64 =encoding utf8
65
66 =head1 NAME
67
68 SL::Clipboard::RequirementSpecItem - Clipboard specialization for
69 SL::DB::RequirementSpecItem
70
71 =head1 FUNCTIONS
72
73 =over 4
74
75 =item C<describe>
76
77 Returns a human-readable description depending on the copied type
78 (section, function block or sub function block).
79
80 =item C<dump $object>
81
82 This specialization reloads C<$object> from the database, loads all of
83 its children (but only the other requirement spec items, no other
84 relationships) and dumps it.
85
86 =item C<_fix_object $object>
87
88 Fixes C<$object> and all of its children by clearing certain columns
89 like the position or function block numbers.
90
91 =back
92
93 =head1 BUGS
94
95 Nothing here yet.
96
97 =head1 AUTHOR
98
99 Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>
100
101 =cut