From 66f3691d18cef4804d990bfd51b9b7d0e1816829 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Mon, 14 Oct 2024 11:36:22 -0300 Subject: [PATCH] Bug 35570: Do not unbless iterator Signed-off-by: Tomas Cohen Arazi --- Koha/ILL/Backend/Standard.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Koha/ILL/Backend/Standard.pm b/Koha/ILL/Backend/Standard.pm index ee31397f240..8696b322070 100644 --- a/Koha/ILL/Backend/Standard.pm +++ b/Koha/ILL/Backend/Standard.pm @@ -355,18 +355,18 @@ sub edititem { my $stage = $other->{stage}; if ( !$stage || $stage eq 'init' ) { - my $attrs = $params->{request}->extended_attributes->unblessed; + my $attrs = $params->{request}->extended_attributes; # We need to identify which parameters are custom, and pass them # to the template in a predefined form my $custom_keys = []; my $custom_vals = []; - foreach my $attr ( @{$attrs} ) { - if ( !$core->{ $attr->{type} } ) { - push @{$custom_keys}, $attr->{type}; - push @{$custom_vals}, $attr->{value}; + while ( my $attr = $attrs->next ) { + if ( !$core->{ $attr->type } ) { + push @{$custom_keys}, $attr->type; + push @{$custom_vals}, $attr->value; } else { - $other->{ $attr->{type} } = $attr->{value}; + $other->{ $attr->type } = $attr->value; } } $other->{'custom_key'} = join "\0", @{$custom_keys}; -- 2.47.0