Revision 4528f3f2
Von Tamino Steinert vor etwa 1 Jahr hinzugefügt
SL/Model/Record.pm | ||
---|---|---|
69 | 69 |
return $target_object; |
70 | 70 |
} |
71 | 71 |
|
72 |
sub new_from_workflow_multi { |
|
73 |
my ($class, $source_objects, $target_subtype, %flags) = @_; |
|
74 |
# source: ein arrayref von quellobjekten. |
|
75 |
# target type: sollte ein subtype sein. wer das hier implementiert, sollte auch eine subtype registratur bauen in der man subtypes nachschlagen kann |
|
76 |
# flags: welche extra behandlungen sollen gemacht werden, z.B. record_links setzen |
|
77 |
|
|
78 |
# muss prüfen ob diese umwandlung korrekt ist |
|
79 |
# muss das entsprechende new_from_multi in den objekten selber benutzen |
|
80 |
# und dann evtl nachbearbeitung machen (die bisher im controller stand) |
|
81 |
|
|
82 |
# new_from_workflow_multi: (aus action_edit_collective) workflow umwandlung von bestehenden records |
|
83 |
|
|
84 |
# fehlerfall: exception aus unterliegendem code bubblen oder neue exception werfen |
|
85 |
# rückgabe: das neue objekt |
|
86 |
|
|
87 |
my %subtype_to_type = ( |
|
88 |
# Order |
|
89 |
"sales_order" => "SL::DB::Order", |
|
90 |
); |
|
91 |
my $target_type = $subtype_to_type{$target_subtype}; |
|
92 |
unless ($target_type) { |
|
93 |
croak("Conversion not supported to $target_subtype"); |
|
94 |
} |
|
95 |
|
|
96 |
my $target_object = ${target_type}->new_from_multi($source_objects, %flags); |
|
97 |
|
|
98 |
return $target_object; |
|
99 |
} |
|
100 |
|
|
72 | 101 |
# im Moment nur bei Aufträgen |
73 | 102 |
sub increment_subversion { |
74 | 103 |
my ($class, $record, %flags) = @_; |
Auch abrufbar als: Unified diff
Model::Record: new_from_workflow_multi implementiert