projekt kivitendo

use SL::DB::Helper::ActsAsList;

__PACKAGE__->meta->add_relationship(

  children       => {

    type         => 'one to many',

    class        => 'SL::DB::RequirementSpecItem',

    column_map   => { id => 'parent_id' },

  },

);

__PACKAGE__->meta->initialize;

__PACKAGE__->configure_acts_as_list(group_by => [qw(requirement_spec_id parent_id)]);

__PACKAGE__->before_delete(\&_before_delete_delete_children);

sub _before_delete_delete_children {

  my ($self) = @_;

  foreach my $child (@{ SL::DB::Manager::RequirementSpecItem->get_all(where => [ parent_id => $self->id ]) }) {

    my $result = $child->delete;

    return $result if !$result;

  }

  1;

}

sub sorted_children {

  my ($self) = @_;

  return [ sort { $a->position <=> $b->position } @{ $self->children } ];

}