From 2dfb0aefcf8022cd147d8d91f2b60690d8e46bf8 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 Content-Type: text/plain; charset=utf-8 See bug 29844. --- Koha/Patron.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Koha/Patron.pm b/Koha/Patron.pm index f88ce98dc3..36e0a2cedc 100644 --- a/Koha/Patron.pm +++ b/Koha/Patron.pm @@ -394,8 +394,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; @@ -412,7 +412,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 -- 2.20.1