Revision b8125c17
Von Bernd Bleßmann vor mehr als 10 Jahren hinzugefügt
| SL/DO.pm | ||
|---|---|---|
|
dbh => $dbh,
|
||
|
row => $i,
|
||
|
sub_module => 'delivery_order_items',
|
||
|
may_converted_from => ['orderitems']);
|
||
|
may_converted_from => ['orderitems', 'delivery_order_items']);
|
||
|
|
||
|
my $position = $i;
|
||
|
|
||
| ... | ... | |
|
name_prefix => 'ic_',
|
||
|
name_postfix => "_$i",
|
||
|
dbh => $dbh);
|
||
|
|
||
|
# link order items with doi, for future extension look at foreach IS.pm
|
||
|
if ($form->{"converted_from_orderitems_id_$i"}) {
|
||
|
if (!$form->{saveasnew} && $form->{"converted_from_orderitems_id_$i"}) {
|
||
|
RecordLinks->create_links('dbh' => $dbh,
|
||
|
'mode' => 'ids',
|
||
|
'from_table' => 'orderitems',
|
||
| ... | ... | |
|
'to_table' => 'delivery_order_items',
|
||
|
'to_id' => $form->{"delivery_order_items_id_$i"},
|
||
|
);
|
||
|
delete $form->{"converted_from_orderitems_id_$i"};
|
||
|
}
|
||
|
delete $form->{"converted_from_orderitems_id_$i"};
|
||
|
}
|
||
|
|
||
|
# 1. search for orphaned dois; processed_dois may be empty (no transfer) TODO: be supersafe and alter same statement for doi and oi
|
||
| ... | ... | |
|
dbh => $dbh,
|
||
|
row => $i,
|
||
|
sub_module => 'delivery_order_items',
|
||
|
may_converted_from => ['orderitems']);
|
||
|
may_converted_from => ['orderitems', 'delivery_order_items']);
|
||
|
|
||
|
push @{ $form->{TEMPLATE_ARRAYS}->{"ic_cvar_$_->{name}"} },
|
||
|
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.