X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FRequirementSpecItem.pm;h=35acefcb6acb98fd09951313f746e3cbeb20bb95;hb=3bbe01f72076071001aee77c1c8b9bce00c6d7c2;hp=5e7d46c91cc200e9b992ea50b7e2e333e70f7604;hpb=013804fdf4b69b04889d8bf8af182eda9e9d95a5;p=kivitendo-erp.git diff --git a/SL/DB/RequirementSpecItem.pm b/SL/DB/RequirementSpecItem.pm index 5e7d46c91..35acefcb6 100644 --- a/SL/DB/RequirementSpecItem.pm +++ b/SL/DB/RequirementSpecItem.pm @@ -41,7 +41,7 @@ __PACKAGE__->configure_acts_as_list(group_by => [qw(requirement_spec_id parent_i __PACKAGE__->attr_duration(qw(time_estimation)); __PACKAGE__->before_save(\&_before_save_create_fb_number); -__PACKAGE__->before_save(\ &_before_save_invalidate_requirement_spec_version); +__PACKAGE__->before_save(\&_before_save_invalidate_requirement_spec_version); __PACKAGE__->before_delete(\&_before_delete_invalidate_requirement_spec_version); sub _before_save_create_fb_number { @@ -104,8 +104,7 @@ sub children_sorted { croak "Not a writer" if @args; - my @children = sort { $a->position <=> $b->position } $self->children; - return wantarray ? @children : \@children; + return [ sort { $a->position <=> $b->position } $self->children ]; } sub section { @@ -150,9 +149,8 @@ Returns the C for children of C<$self>. =item C -Returns an array (or an array reference depending on context) of -direct children (not of grandchildren) for C<$self> ordered by their -positional column in ascending order. +Returns an array reference of direct children (not of grandchildren) +for C<$self> ordered by their positional column in ascending order. =item C