SL/DB/RequirementSpecItem.pm

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