From 2eac11c24dbe8a4633cb82245ad0d388922faede Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Wed, 8 Jun 2022 14:47:05 +0000 Subject: [PATCH] Bug 11889: (QA follow-up) Changes for wantarray move in ->search See bug 29844. Signed-off-by: Marcel de Rooy Signed-off-by: Martin Renvoize Signed-off-by: Tomas Cohen Arazi --- Koha/Patron.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Koha/Patron.pm b/Koha/Patron.pm index 6c87508fa1..5e385bb5d2 100644 --- a/Koha/Patron.pm +++ b/Koha/Patron.pm @@ -393,8 +393,8 @@ sub delete { if ( C4::Context->preference('ListOwnershipUponPatronDeletion') eq 'transfer' ) { my $userenv = C4::Context->userenv(); my $usernumber = (ref($userenv) eq 'HASH') ? $userenv->{'number'} : 0; - my @publiclists = Koha::Virtualshelves->get_public_shelves; - my @sharedlists = Koha::Virtualshelves->get_shared_shelves({ borrowernumber => $self->borrowernumber }); + my @publiclists = Koha::Virtualshelves->get_public_shelves->as_list; + my @sharedlists = Koha::Virtualshelves->get_shared_shelves({ borrowernumber => $self->borrowernumber })->as_list; foreach my $plist ( @publiclists ) { if ( $plist->owner == $self->borrowernumber ) { my $unique_name = $plist->shelfname . '_' . $self->borrowernumber; @@ -411,7 +411,7 @@ sub delete { # Delete any remaining lists that this user is an owner of (always private lists, # only public and shared lists if ListOwnershipUponPatronDeletion = delete) - $_->delete for Koha::Virtualshelves->search({ owner => $self->borrowernumber }); + $_->delete for Koha::Virtualshelves->search({ owner => $self->borrowernumber })->as_list; # We cannot have a FK on borrower_modifications.borrowernumber, the table is also used # for patron selfreg