SL::DB::RequirementSpec-Refactoring: create_copy in create_copy+copy_from aufgesplittet

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

diff --git a/SL/DB/RequirementSpec.pm b/SL/DB/RequirementSpec.pm
index c25c289d933e212978755efb126a3295dd6ebe0b..69a750bb0bd68b23225b746038e7f1d65b71e118 100644 (file)
--- a/SL/DB/RequirementSpec.pm
+++ b/SL/DB/RequirementSpec.pm
@@ -87,13 +87,25 @@ sub _create_copy {
   my ($self, %params) = @_;
 
   my $copy = Rose::DB::Object::Helpers::clone_and_reset($self);
   my ($self, %params) = @_;
 
   my $copy = Rose::DB::Object::Helpers::clone_and_reset($self);

-  $copy->assign_attributes(%params);
+  $copy->copy_from($self, %params);
+
+  return $copy;
+}
+
+sub copy_from {
+  my ($self, $source, %attributes) = @_;
+
+  croak "Missing parameter 'source'" unless $source;
+
+  # Copy attributes.
+  $self->assign_attributes(map({ ($_ => $source->$_) } qw(type_id status_id customer_id project_id title hourly_rate net_sum previous_section_number previous_fb_number is_template)),
+                           %attributes);

 
   # Clone text blocks.
 
   # Clone text blocks.

-  $copy->text_blocks(map { Rose::DB::Object::Helpers::clone_and_reset($_) } @{ $self->text_blocks });
+  $self->text_blocks(map { Rose::DB::Object::Helpers::clone_and_reset($_) } @{ $source->text_blocks });

 
   # Save new object -- we need its ID for the items.
 
   # Save new object -- we need its ID for the items.

-  $copy->save;
+  $self->save;

 
   my %id_to_clone;
 
 
   my %id_to_clone;
 


@@ -102,7 +114,7 @@ sub _create_copy {
   $clone_item = sub {
     my ($item) = @_;
     my $cloned = Rose::DB::Object::Helpers::clone_and_reset($item);
   $clone_item = sub {
     my ($item) = @_;
     my $cloned = Rose::DB::Object::Helpers::clone_and_reset($item);

-    $cloned->requirement_spec_id($copy->id);
+    $cloned->requirement_spec_id($self->id);

     $cloned->children(map { $clone_item->($_) } @{ $item->children });
 
     $id_to_clone{ $item->id } = $cloned;
     $cloned->children(map { $clone_item->($_) } @{ $item->children });
 
     $id_to_clone{ $item->id } = $cloned;


@@ -110,18 +122,18 @@ sub _create_copy {
     return $cloned;
   };
 
     return $cloned;
   };
 

-  $copy->items(map { $clone_item->($_) } @{ $self->sections });
+  $self->items(map { $clone_item->($_) } @{ $source->sections });

 
   # Save the items -- need to do that before setting dependencies.
 
   # Save the items -- need to do that before setting dependencies.

-  $copy->save;
+  $self->save;

 
   # Set dependencies.
 
   # Set dependencies.

-  foreach my $item (@{ $self->items }) {
+  foreach my $item (@{ $source->items }) {

     next unless @{ $item->dependencies };
     $id_to_clone{ $item->id }->update_attributes(dependencies => [ map { $id_to_clone{$_->id} } @{ $item->dependencies } ]);
   }
 
     next unless @{ $item->dependencies };
     $id_to_clone{ $item->id }->update_attributes(dependencies => [ map { $id_to_clone{$_->id} } @{ $item->dependencies } ]);
   }
 

-  return $copy;
+  return $self;

 }
 
 sub previous_version {
 }
 
 sub previous_version {