DB/RequirementSpecItem.pm

   1 package SL::DB::RequirementSpecItem;
   2
   3 use strict;
   4
   5 use SL::DB::MetaSetup::RequirementSpecItem;
   6 use SL::DB::Manager::RequirementSpecItem;
   7 use SL::DB::Helper::ActsAsList;
   8 use SL::DB::Helper::AttrDuration;
   9 use SL::DB::Default;
  10 use SL::Locale::String;
  11 use SL::PrefixedNumber;
  12
  13 __PACKAGE__->meta->add_relationship(
  14   children     => {
  15     type       => 'one to many',
  16     class      => 'SL::DB::RequirementSpecItem',
  17     column_map => { id => 'parent_id' },
  18   },
  19   dependencies => {
  20     map_class  => 'SL::DB::RequirementSpecDependency',
  21     map_from   => 'depending_item',
  22     map_to     => 'depended_item',
  23     type       => 'many to many',
  24   },
  25   dependents   => {
  26     map_class  => 'SL::DB::RequirementSpecDependency',
  27     map_from   => 'depended_item',
  28     map_to     => 'depending_item',
  29     type       => 'many to many',
  30   },
  31 );
  32
  33 __PACKAGE__->meta->initialize;
  34
  35 __PACKAGE__->configure_acts_as_list(group_by => [qw(requirement_spec_id parent_id)]);
  36 __PACKAGE__->attr_duration(qw(time_estimation));
  37
  38 __PACKAGE__->before_save(\&_before_save_create_fb_number);
  39 __PACKAGE__->before_delete(\&_before_delete_delete_children);
  40
  41 sub _before_delete_delete_children {
  42   my ($self) = @_;
  43
  44   foreach my $child (@{ SL::DB::Manager::RequirementSpecItem->get_all(where => [ parent_id => $self->id ]) }) {
  45     my $result = $child->delete;
  46     return $result if !$result;
  47   }
  48
  49   1;
  50 }
  51
  52 sub _before_save_create_fb_number {
  53   my ($self) = @_;
  54
  55   return 1 if  $self->fb_number;
  56   return 0 if !$self->requirement_spec_id;
  57
  58   my $method      = 'previous_' . ($self->parent_id ? 'fb' : 'section') . '_number';
  59   my $next_number = $self->requirement_spec->$method + 1;
  60
  61   $self->requirement_spec->update_attributes($method => $next_number) || return 0;
  62
  63   my $method = 'requirement_spec_' . ($self->parent_id ? 'function_block' : 'section') . '_number_format';
  64   my $format = SL::DB::Default->get->$method;
  65
  66   $self->fb_number(SL::PrefixedNumber->new(number => $format || 0)->set_to($next_number));
  67
  68   return 1;
  69 }
  70
  71 sub validate {
  72   my ($self) = @_;
  73
  74   my @errors;
  75   push @errors, t8('The title is missing.') if !$self->parent_id && !$self->title;
  76
  77   return @errors;
  78 }
  79
  80 sub sorted_children {
  81   my ($self) = @_;
  82
  83   return [ sort { $a->position <=> $b->position } @{ $self->children } ];
  84 }
  85
  86 sub get_section {
  87   my ($self) = @_;
  88
  89   $self = $self->parent while $self->parent_id;
  90
  91   return $self;
  92 }
  93
  94 sub get_type {
  95   my ($self) = @_;
  96
  97   return 'section' if !$self->parent_id;
  98   return $self->parent->parent_id ? 'sub-function-block' : 'function-block';
  99 }
 100
 101 1;