Lines 55-66
sub disown_or_delete {
Link Here
|
55 |
if C4::Context->preference('ListOwnerDesignated') |
55 |
if C4::Context->preference('ListOwnerDesignated') |
56 |
and Koha::Patrons->find( C4::Context->preference('ListOwnerDesignated') ); |
56 |
and Koha::Patrons->find( C4::Context->preference('ListOwnerDesignated') ); |
57 |
|
57 |
|
58 |
unless ($new_owner) { |
58 |
if( !$new_owner && C4::Context->userenv ) { |
59 |
$new_owner = C4::Context->userenv->{number}; |
59 |
$new_owner = C4::Context->userenv->{number}; |
60 |
} |
60 |
} |
61 |
|
61 |
|
62 |
while ( my $list = $self->next ) { |
62 |
while ( my $list = $self->next ) { |
63 |
if ( $list->is_public or $list->is_shared ) { |
63 |
if ( $new_owner && ( $list->is_public or $list->is_shared ) ) { |
64 |
$list->transfer_ownership($new_owner); |
64 |
$list->transfer_ownership($new_owner); |
65 |
} else { |
65 |
} else { |
66 |
$list->delete; |
66 |
$list->delete; |
67 |
- |
|
|