projekt kivitendo

use SL::DB::RequirementSpecOrder;

    # link records for requirement specs

    if (my $converted_from_ids = $params{link_requirement_specs_linking_to_created_from_objects}) {

      _link_requirement_specs_linking_to_created_from_objects($record, $converted_from_ids);

    }

    if ($params{set_project_in_linked_requirement_specs}) { # flag?

      _set_project_in_linked_requirement_specs($record);

    }

# Todo: put this into SL::DB::Order?

sub _link_requirement_specs_linking_to_created_from_objects {

  my ($record, $converted_from_oe_ids) = @_;

  return unless  $converted_from_oe_ids;

  return unless @$converted_from_oe_ids;

  my $rs_orders = SL::DB::Manager::RequirementSpecOrder->get_all(where => [ order_id => $converted_from_oe_ids ]);

  foreach my $rs_order (@{ $rs_orders }) {

    SL::DB::RequirementSpecOrder->new(

      order_id            => $record->id,

      requirement_spec_id => $rs_order->requirement_spec_id,

      version_id          => $rs_order->version_id,

    )->save;

  }

}

sub _set_project_in_linked_requirement_specs {

  my ($record) = @_;

  return unlsess $record->globalproject_id;

  my $rs_orders = SL::DB::Manager::RequirementSpecOrder->get_all(where => [ order_id => $record->id ]);

  foreach my $rs_order (@{ $rs_orders }) {

    next if $rs_order->requirement_spec->project_id == $record->globalproject_id;

    $rs_order->requirement_spec->update_attributes(project_id => $record->globalproject_id);

  }

}