Lines 439-444
sub cannot_be_transferred {
Link Here
|
439 |
if ( !Koha::Patrons->find($to) ) { |
439 |
if ( !Koha::Patrons->find($to) ) { |
440 |
return 'new_owner_not_found'; |
440 |
return 'new_owner_not_found'; |
441 |
} |
441 |
} |
|
|
442 |
my $to_patron = Koha::Patrons->find($to); |
443 |
|
444 |
if ( $self->public ) { |
445 |
return 'unauthorized_transfer' |
446 |
unless C4::Auth::haspermission( |
447 |
$to_patron->userid, |
448 |
{ |
449 |
lists => [ |
450 |
'create_public_lists', 'delete_public_lists', 'edit_public_list_contents', 'edit_public_lists' |
451 |
] |
452 |
} |
453 |
); |
454 |
} |
442 |
if ( !$self->public && !$shares->search( { borrowernumber => $to } )->count ) { |
455 |
if ( !$self->public && !$shares->search( { borrowernumber => $to } )->count ) { |
443 |
return 'new_owner_has_no_share'; |
456 |
return 'new_owner_has_no_share'; |
444 |
} |
457 |
} |
445 |
- |
|
|