Bug 33270: (QA follow-up) Do not change param hashref

Might just be a theoretical thing now, but safer to clone.

Test plan:
Run t/db_dependent/Koha/Biblio/Metadata.t

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
This commit is contained in:
Marcel de Rooy 2023-07-17 10:59:26 +00:00 committed by Tomas Cohen Arazi
parent b3aba2b065
commit cfbe8daf21
Signed by: tomascohen
GPG key ID: 0A272EA1B2F3C15F

View file

@ -149,6 +149,7 @@ Will return undef if the record cannot be built
sub record_strip_nonxml {
my ( $self, $params ) = @_;
$params //= {};
my $record;
my $marcxml_error;
@ -166,8 +167,7 @@ sub record_strip_nonxml {
return;
}
$params->{record} = $record;
return $self->record($params);
return $self->record( { %$params, record => $record } );
}
=head2 Internal methods