Lines 61-67
my ( $public, $shelf, $shelfnumber, @messages, $allow_transfer, $allow_create_pu
Link Here
|
61 |
|
61 |
|
62 |
# work out permissions once |
62 |
# work out permissions once |
63 |
# this check is for the create list permission |
63 |
# this check is for the create list permission |
64 |
$allow_create_public_lists = haspermission( $loggedinuser, { lists => 'create_public_lists' } ) ? 1 : 0; |
64 |
$allow_create_public_lists = haspermission( C4::Context->userenv->{id}, { lists => 'create_public_lists' } ) ? 1 : 0; |
65 |
|
65 |
|
66 |
# we want the user to be able to pick if public or private only if they are allowed |
66 |
# we want the user to be able to pick if public or private only if they are allowed |
67 |
$public = ( $query->param('public') == 1 && $allow_create_public_lists == 1 ) ? 1 : 0; |
67 |
$public = ( $query->param('public') == 1 && $allow_create_public_lists == 1 ) ? 1 : 0; |
68 |
- |
|
|