Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision eba8d7ca

Von Bernd Bleßmann vor mehr als 1 Jahr hinzugefügt

  • ID eba8d7cadb92475150cfdde89e86da347a70c461
  • Vorgänger 8e7b79e2
  • Nachfolger 107d4c98

Model::Record->save: Pflichtenheft: Verknüpfungen und Projekt setzen können

Unterschiede anzeigen:

SL/Model/Record.pm
8 8
use SL::DB::Order;
9 9
use SL::DB::DeliveryOrder;
10 10
use SL::DB::Reclamation;
11
use SL::DB::RequirementSpecOrder;
11 12
use SL::DB::History;
12 13
use SL::DB::Invoice;
13 14
use SL::DB::Status;
......
226 227

  
227 228
    $record->save(cascade => 1);
228 229

  
229
    # # link records
230
    # if (@converted_from_oe_ids) {
231
    #   $self->link_requirement_specs_linking_to_created_from_objects(@converted_from_oe_ids);
232
    # }
230
    # link records for requirement specs
231
    if (my $converted_from_ids = $params{link_requirement_specs_linking_to_created_from_objects}) {
232
      _link_requirement_specs_linking_to_created_from_objects($record, $converted_from_ids);
233
    }
233 234

  
234
    # $self->set_project_in_linked_requirement_specs if $self->order->globalproject_id;
235
    if ($params{set_project_in_linked_requirement_specs}) { # flag?
236
      _set_project_in_linked_requirement_specs($record);
237
    }
235 238

  
236 239
    _save_history($record, 'SAVED', %{$params{history}});
237 240

  
......
241 244
  });
242 245
}
243 246

  
247
# Todo: put this into SL::DB::Order?
248
sub _link_requirement_specs_linking_to_created_from_objects {
249
  my ($record, $converted_from_oe_ids) = @_;
250

  
251
  return unless  $converted_from_oe_ids;
252
  return unless @$converted_from_oe_ids;
253

  
254
  my $rs_orders = SL::DB::Manager::RequirementSpecOrder->get_all(where => [ order_id => $converted_from_oe_ids ]);
255
  foreach my $rs_order (@{ $rs_orders }) {
256
    SL::DB::RequirementSpecOrder->new(
257
      order_id            => $record->id,
258
      requirement_spec_id => $rs_order->requirement_spec_id,
259
      version_id          => $rs_order->version_id,
260
    )->save;
261
  }
262
}
263

  
264
sub _set_project_in_linked_requirement_specs {
265
  my ($record) = @_;
266

  
267
  return unlsess $record->globalproject_id;
268

  
269
  my $rs_orders = SL::DB::Manager::RequirementSpecOrder->get_all(where => [ order_id => $record->id ]);
270
  foreach my $rs_order (@{ $rs_orders }) {
271
    next if $rs_order->requirement_spec->project_id == $record->globalproject_id;
272

  
273
    $rs_order->requirement_spec->update_attributes(project_id => $record->globalproject_id);
274
  }
275
}
276

  
244 277
sub update_for_save_as_new {
245 278
  my ($class, $saved_record, $changed_record, %params) = @_;
246 279

  

Auch abrufbar als: Unified diff