Revision 78912e55
Von Jan Büren vor fast 10 Jahren hinzugefügt
| SL/IR.pm | ||
|---|---|---|
| 757 | 757 |
Common::webdav_folder($form); |
| 758 | 758 |
|
| 759 | 759 |
# Link this record to the records it was created from. |
| 760 |
RecordLinks->create_links('dbh' => $dbh,
|
|
| 761 |
'mode' => 'ids', |
|
| 762 |
'from_table' => 'oe', |
|
| 763 |
'from_ids' => $form->{convert_from_oe_ids},
|
|
| 764 |
'to_table' => 'ap', |
|
| 765 |
'to_id' => $form->{id},
|
|
| 766 |
); |
|
| 767 |
delete $form->{convert_from_oe_ids};
|
|
| 760 |
if ($form->{convert_from_oe_ids}) {
|
|
| 761 |
RecordLinks->create_links('dbh' => $dbh,
|
|
| 762 |
'mode' => 'ids', |
|
| 763 |
'from_table' => 'oe', |
|
| 764 |
'from_ids' => $form->{convert_from_oe_ids},
|
|
| 765 |
'to_table' => 'ap', |
|
| 766 |
'to_id' => $form->{id},
|
|
| 767 |
); |
|
| 768 |
delete $form->{convert_from_oe_ids};
|
|
| 769 |
} |
|
| 768 | 770 |
|
| 769 | 771 |
my @convert_from_do_ids = map { $_ * 1 } grep { $_ } split m/\s+/, $form->{convert_from_do_ids};
|
| 770 | 772 |
if (scalar @convert_from_do_ids) {
|
Auch abrufbar als: Unified diff
Konditional RecordLink save aufrufen (analog zu ar auch für oe)