@@ -, +, @@ field rather than item barcode use C4::Items; use Data::Dumper; my $biblionumber = 5035; my $itemnumber = (GetItemnumbersForBiblio($biblionumber))[0]; say Dumper $itemnumber; $itemnumber = (GetItemnumbersForBiblio($biblionumber))->[0]; say Dumper $itemnumber; '23168', '23169', '23170', '23171', '23172' ]; --- C4/SIP/ILS/Patron.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) --- a/C4/SIP/ILS/Patron.pm +++ a/C4/SIP/ILS/Patron.pm @@ -402,7 +402,7 @@ sub _get_outstanding_holds { else { # We need to return a barcode for the biblio so the client # can request the biblio info - $item = ( GetItemnumbersForBiblio($h->{biblionumber}) )[0]; + $item = ( GetItemnumbersForBiblio($h->{biblionumber}) )->[0]; } $h->{barcode} = GetBarcodeFromItemnumber($item); } --