X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/3250f2ee17441742890fe97b4fe5851626029441..4f5ea8fb2c1a3937b704a17f34d4004aa2d1c473:/SL/DB/RequirementSpecItem.pm

diff --git a/SL/DB/RequirementSpecItem.pm b/SL/DB/RequirementSpecItem.pm
index f7444daba..5ea599f89 100644
--- a/SL/DB/RequirementSpecItem.pm
+++ b/SL/DB/RequirementSpecItem.pm
@@ -2,9 +2,18 @@ package SL::DB::RequirementSpecItem;
 
 use strict;
 
+use Carp;
+use List::MoreUtils qw(any);
+use Rose::DB::Object::Helpers;
+use Rose::DB::Object::Util;
+
 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;
 
 __PACKAGE__->meta->add_relationship(
   children     => {
@@ -29,8 +38,12 @@ __PACKAGE__->meta->add_relationship(
 __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_save(\  &_before_save_invalidate_requirement_spec_version);
 __PACKAGE__->before_delete(\&_before_delete_delete_children);
+__PACKAGE__->before_delete(\&_before_delete_invalidate_requirement_spec_version);
 
 sub _before_delete_delete_children {
   my ($self) = @_;
@@ -43,25 +56,84 @@ sub _before_delete_delete_children {
   1;
 }
 
-sub sorted_children {
+sub _before_save_create_fb_number {
   my ($self) = @_;
 
-  return [ sort { $a->position <=> $b->position } @{ $self->children } ];
+  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;
+
+  $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 _before_save_invalidate_requirement_spec_version {
+  my ($self, %params) = @_;
+
+  return 1 if !$self->requirement_spec_id;
+
+  my %changed_columns = map { $_ => 1 } (Rose::DB::Object::Helpers::dirty_columns($self));
+  my $has_changed     = !Rose::DB::Object::Util::is_in_db($self);
+  $has_changed      ||= any { $changed_columns{$_} } qw(requirement_spec_id parent_id position fb_number title description);
+
+  if (!$has_changed && $self->id) {
+    my $old_item = SL::DB::RequirementSpecItem->new(id => $self->id)->load;
+    $has_changed = join(':', sort map { $_->id } @{ $self->dependencies }) ne join(':', sort map { $_->id } @{ $old_item->dependencies });
+  }
+
+  $self->requirement_spec->invalidate_version if $has_changed;
+
+  return 1;
 }
 
-sub get_section {
+sub _before_delete_invalidate_requirement_spec_version {
+  my ($self, %params) = @_;
+
+  $self->requirement_spec->invalidate_version if $self->requirement_spec_id;
+
+  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, @args) = @_;
+
+  croak "Not a writer" if @args;
+
+  return [ sort { $a->position <=> $b->position } @{ $self->children } ];
+}
+
+sub section {
+  my ($self, @args) = @_;
+
+  croak "Not a writer" if @args;
   $self = $self->parent while $self->parent_id;
 
   return $self;
 }
 
-sub get_type {
-  my ($self) = @_;
+sub child_type {
+  my ($self, @args) = @_;
+
+  croak "Not a writer" if @args;
 
-  return 'section' if !$self->parent_id;
-  return $self->parent->parent_id ? 'sub-function-block' : 'function-block';
+  return $self->item_type eq 'section' ? 'function-block' : 'sub-function-block';
 }
 
 1;