Revision b8125c17
Von Bernd Bleßmann vor fast 10 Jahren hinzugefügt
| SL/DO.pm | ||
|---|---|---|
| 300 | 300 |
dbh => $dbh, |
| 301 | 301 |
row => $i, |
| 302 | 302 |
sub_module => 'delivery_order_items', |
| 303 |
may_converted_from => ['orderitems']); |
|
| 303 |
may_converted_from => ['orderitems', 'delivery_order_items']);
|
|
| 304 | 304 |
|
| 305 | 305 |
my $position = $i; |
| 306 | 306 |
|
| ... | ... | |
| 395 | 395 |
name_prefix => 'ic_', |
| 396 | 396 |
name_postfix => "_$i", |
| 397 | 397 |
dbh => $dbh); |
| 398 |
|
|
| 398 | 399 |
# link order items with doi, for future extension look at foreach IS.pm |
| 399 |
if ($form->{"converted_from_orderitems_id_$i"}) {
|
|
| 400 |
if (!$form->{saveasnew} && $form->{"converted_from_orderitems_id_$i"}) {
|
|
| 400 | 401 |
RecordLinks->create_links('dbh' => $dbh,
|
| 401 | 402 |
'mode' => 'ids', |
| 402 | 403 |
'from_table' => 'orderitems', |
| ... | ... | |
| 404 | 405 |
'to_table' => 'delivery_order_items', |
| 405 | 406 |
'to_id' => $form->{"delivery_order_items_id_$i"},
|
| 406 | 407 |
); |
| 407 |
delete $form->{"converted_from_orderitems_id_$i"};
|
|
| 408 | 408 |
} |
| 409 |
delete $form->{"converted_from_orderitems_id_$i"};
|
|
| 409 | 410 |
} |
| 410 | 411 |
|
| 411 | 412 |
# 1. search for orphaned dois; processed_dois may be empty (no transfer) TODO: be supersafe and alter same statement for doi and oi |
| ... | ... | |
| 1009 | 1010 |
dbh => $dbh, |
| 1010 | 1011 |
row => $i, |
| 1011 | 1012 |
sub_module => 'delivery_order_items', |
| 1012 |
may_converted_from => ['orderitems']); |
|
| 1013 |
may_converted_from => ['orderitems', 'delivery_order_items']);
|
|
| 1013 | 1014 |
|
| 1014 | 1015 |
push @{ $form->{TEMPLATE_ARRAYS}->{"ic_cvar_$_->{name}"} },
|
| 1015 | 1016 |
CVar->format_to_template(CVar->parse($form->{"ic_cvar_$_->{name}_$i"}, $_), $_)
|
Auch abrufbar als: Unified diff
Nicht-editierbare CVars bei "als neu speichern/verwenden" richtig setzen.