Revision 0e24519f
Von Kivitendo Admin vor etwa 1 Jahr hinzugefügt
| t/model/records.t | ||
|---|---|---|
| 242 | 242 |
note " testing from quotation -> $target_record_type"; |
| 243 | 243 |
my $new_record = SL::Model::Record->new_from_workflow($sales_order1, $target_record_type); |
| 244 | 244 |
if ( 'SL::DB::Reclamation' eq ref($new_record) ) {
|
| 245 |
map { $_->reason($reclamation_reason) } @{ $new_record->items };
|
|
| 245 |
$_->reason($reclamation_reason) foreach @{ $new_record->items };
|
|
| 246 | 246 |
}; |
| 247 | 247 |
SL::Model::Record->save($new_record); |
| 248 | 248 |
$new_record->load; |
Auch abrufbar als: Unified diff
t/model/records.t - map in foreach umgeschrieben