Revision 78912e55
Von Jan Büren vor fast 10 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 1215 | 1215 |
} |
| 1216 | 1216 |
|
| 1217 | 1217 |
# Link this record to the records it was created from. |
| 1218 |
RecordLinks->create_links('dbh' => $dbh,
|
|
| 1219 |
'mode' => 'ids', |
|
| 1220 |
'from_table' => 'oe', |
|
| 1221 |
'from_ids' => $form->{convert_from_oe_ids},
|
|
| 1222 |
'to_table' => 'ar', |
|
| 1223 |
'to_id' => $form->{id},
|
|
| 1224 |
); |
|
| 1225 |
delete $form->{convert_from_oe_ids};
|
|
| 1218 |
if ($form->{convert_from_oe_ids}) {
|
|
| 1219 |
RecordLinks->create_links('dbh' => $dbh,
|
|
| 1220 |
'mode' => 'ids', |
|
| 1221 |
'from_table' => 'oe', |
|
| 1222 |
'from_ids' => $form->{convert_from_oe_ids},
|
|
| 1223 |
'to_table' => 'ar', |
|
| 1224 |
'to_id' => $form->{id},
|
|
| 1225 |
); |
|
| 1226 |
delete $form->{convert_from_oe_ids};
|
|
| 1227 |
} |
|
| 1226 | 1228 |
|
| 1227 | 1229 |
my @convert_from_do_ids = map { $_ * 1 } grep { $_ } split m/\s+/, $form->{convert_from_do_ids};
|
| 1228 | 1230 |
|
Auch abrufbar als: Unified diff
Konditional RecordLink save aufrufen (analog zu ar auch für oe)