Lists owned by the borrower are deleted, but entries from the borrower to

Lists owned by the borrower are deleted or ownership is transfered depending on the

other lists are kept.

ListOwnershipUponPatronDeletion pref, but entries from the borrower to other lists are kept.

            # Delete all lists and all shares of this borrower

            # If ListOwnershipUponPatronDeletion = transfer, change ownership of all

            # Consistent with the approach Koha uses on deleting individual lists

            # public and shared lists to the user who deleted them.

            # Note that entries in virtualshelfcontents added by this borrower to

            if ( C4::Context->preference('ListOwnershipUponPatronDeletion') eq 'transfer' ) {

            # lists of others will be handled by a table constraint: the borrower

                my $userenv = C4::Context->userenv();

            # is set to NULL in those entries.

                my $usernumber = (ref($userenv) eq 'HASH') ? $userenv->{'number'} : 0;

            # NOTE:

                my @publiclists = Koha::Virtualshelves->get_public_shelves;

            # We could handle the above deletes via a constraint too.

                my @sharedlists = Koha::Virtualshelves->search({ 'me.owner' => $self->borrowernumber, 'me.shelfnumber' => { -ident => 'virtualshelfshares.shelfnumber' }  }, { prefetch => 'virtualshelfshares' });

            # But a new BZ report 11889 has been opened to discuss another approach.

                foreach my $plist ( @publiclists ) {

            # Instead of deleting we could also disown lists (based on a pref).

                    $plist->set({ owner => $usernumber })->store;

            # In that way we could save shared and public lists.

                }

            # The current table constraints support that idea now.

                foreach my $slist ( @sharedlists ) {

            # This pref should then govern the results of other routines/methods such as

                    $slist->set({ owner => $usernumber })->store;

            # Koha::Virtualshelf->new->delete too.

                }

            # FIXME Could be $patron->get_lists

            }

            $_->delete for Koha::Virtualshelves->search( { owner => $self->borrowernumber } )->as_list;

            # 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 });