From 97f2f7aa11fb7d6b903a658b68e3650e8b8d8f09 Mon Sep 17 00:00:00 2001
From: Tamino Steinert <tamino.steinert@tamino.st>
Date: Fri, 13 Oct 2023 15:14:04 +0200
Subject: [PATCH] =?UTF-8?q?S:D:H:RecordLink:=20FIX:=20mehrere=20Ursprungsb?=
 =?UTF-8?q?elege=20unterst=C3=BCtzen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 SL/DB/Helper/RecordLink.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/SL/DB/Helper/RecordLink.pm b/SL/DB/Helper/RecordLink.pm
index cb73a846aa..f504655843 100644
--- a/SL/DB/Helper/RecordLink.pm
+++ b/SL/DB/Helper/RecordLink.pm
@@ -21,13 +21,14 @@ sub link_records {
   my %allowed_linked_record_items = map {$_ => 1} @$allowed_linked_record_items;
 
   return 1 unless my $from_record_ids = $self->{RECORD_ID()};
+  my @from_record_ids = split / /, $from_record_ids;
 
   my $from_record_type = $self->{RECORD_TYPE_REF()};
   unless ($allowed_linked_records{$from_record_type}) {
     croak("Not allowed @{[ RECORD_TYPE_REF ]}: $from_record_type");
   }
 
-  for my $id (listify($from_record_ids)) {
+  for my $id (@from_record_ids) {
     my $from_record = $from_record_type->new(id => $id)->load;
     $from_record->link_to_record($self);
   }