View | Details | Raw Unified | Return to bug 39145
Collapse All | Expand All

(-)a/Koha/Virtualshelves.pm (-4 / +6 lines)
Lines 45-53 just delete them if not possible. Link Here
45
sub disown_or_delete {
45
sub disown_or_delete {
46
    my ($self) = @_;
46
    my ($self) = @_;
47
47
48
    my $list_pref = C4::Context->preference('ListOwnershipUponPatronDeletion');
48
    $self->_resultset->result_source->schema->txn_do(
49
    $self->_resultset->result_source->schema->txn_do(
49
        sub {
50
        sub {
50
            if ( C4::Context->preference('ListOwnershipUponPatronDeletion') eq 'transfer' ) {
51
            if ( $list_pref ne 'delete' ) { # transfer or transfer_public
51
                my $new_owner;
52
                my $new_owner;
52
53
53
                $new_owner = C4::Context->preference('ListOwnerDesignated')
54
                $new_owner = C4::Context->preference('ListOwnerDesignated')
Lines 59-67 sub disown_or_delete { Link Here
59
                }
60
                }
60
61
61
                while ( my $list = $self->next ) {
62
                while ( my $list = $self->next ) {
62
                    if ( $new_owner && ( $list->is_public or $list->is_shared ) ) {
63
                    if ( $new_owner && $list->is_public ) {
63
                        $list->transfer_ownership($new_owner);
64
                        $list->transfer_ownership($new_owner);
64
                    } else {
65
                    } elsif ( $new_owner && $list->is_shared && $list_pref eq 'transfer' ) {
66
                        $list->transfer_ownership($new_owner);
67
                    } else { # private list, or shared list with transfer_public
65
                        $list->delete;
68
                        $list->delete;
66
                    }
69
                    }
67
                }
70
                }
68
- 

Return to bug 39145