Pflichtenheftitems: Abschnitte anlegen

[mfinanz.git] / SL / DB / RequirementSpecItem.pm

diff --git a/SL/DB/RequirementSpecItem.pm b/SL/DB/RequirementSpecItem.pm
index ee71d7c448f1f4c7516d24cb2226f1fe48235883..dc7f5c1e6d4c713c18a227ec0e564cb86ea826d6 100644 (file)
--- a/SL/DB/RequirementSpecItem.pm
+++ b/SL/DB/RequirementSpecItem.pm
@@ -3,8 +3,99 @@ package SL::DB::RequirementSpecItem;
 use strict;
 
 use SL::DB::MetaSetup::RequirementSpecItem;
+use SL::DB::Manager::RequirementSpecItem;
+use SL::DB::Helper::ActsAsList;
+use SL::DB::Helper::AttrDuration;
+use SL::DB::Default;
+use SL::Locale::String;
+use SL::PrefixedNumber;
 
-# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
-__PACKAGE__->meta->make_manager_class;
+__PACKAGE__->meta->add_relationship(
+  children     => {
+    type       => 'one to many',
+    class      => 'SL::DB::RequirementSpecItem',
+    column_map => { id => 'parent_id' },
+  },
+  dependencies => {
+    map_class  => 'SL::DB::RequirementSpecDependency',
+    map_from   => 'depending_item',
+    map_to     => 'depended_item',
+    type       => 'many to many',
+  },
+  dependents   => {
+    map_class  => 'SL::DB::RequirementSpecDependency',
+    map_from   => 'depended_item',
+    map_to     => 'depending_item',
+    type       => 'many to many',
+  },
+);
+
+__PACKAGE__->meta->initialize;
+
+__PACKAGE__->configure_acts_as_list(group_by => [qw(requirement_spec_id parent_id)]);
+__PACKAGE__->attr_duration(qw(time_estimation));
+
+__PACKAGE__->before_save(\&_before_save_create_fb_number);
+__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 _before_save_create_fb_number {
+  my ($self) = @_;
+
+  return 1 if  $self->fb_number;
+  return 0 if !$self->requirement_spec_id;
+
+  my $method      = 'previous_' . ($self->parent_id ? 'fb' : 'section') . '_number';
+  my $next_number = $self->requirement_spec->$method + 1;
+
+  $self->requirement_spec->update_attributes($method => $next_number) || return 0;
+
+  my $method = 'requirement_spec_' . ($self->parent_id ? 'function_block' : 'section') . '_number_format';
+  my $format = SL::DB::Default->get->$method;
+
+  $self->fb_number(SL::PrefixedNumber->new(number => $format || 0)->set_to($next_number));
+
+  return 1;
+}
+
+sub validate {
+  my ($self) = @_;
+
+  my @errors;
+  push @errors, t8('The title is missing.') if !$self->parent_id && !$self->title;
+
+  return @errors;
+}
+
+sub sorted_children {
+  my ($self) = @_;
+
+  return [ sort { $a->position <=> $b->position } @{ $self->children } ];
+}
+
+sub get_section {
+  my ($self) = @_;
+
+  $self = $self->parent while $self->parent_id;
+
+  return $self;
+}
+
+sub get_type {
+  my ($self) = @_;
+
+  return 'section' if !$self->parent_id;
+  return $self->parent->parent_id ? 'sub-function-block' : 'function-block';
+}
 
 1;