|
Lines 18-24
package Koha::Virtualshelf;
Link Here
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
|
19 |
|
| 20 |
|
20 |
|
| 21 |
use C4::Auth qw( haspermission ); |
21 |
use C4::Auth; |
| 22 |
|
22 |
|
| 23 |
use Koha::Patrons; |
23 |
use Koha::Patrons; |
| 24 |
use Koha::Database; |
24 |
use Koha::Database; |
|
Lines 233-239
sub can_be_deleted {
Link Here
|
| 233 |
|
233 |
|
| 234 |
my $patron = Koha::Patrons->find( $borrowernumber ) or return 0; |
234 |
my $patron = Koha::Patrons->find( $borrowernumber ) or return 0; |
| 235 |
|
235 |
|
| 236 |
return 1 if $self->is_public and haspermission( $patron->userid, { lists => 'delete_public_lists' } ); |
236 |
return 1 if $self->is_public and C4::Auth::haspermission( $patron->userid, { lists => 'delete_public_lists' } ); |
| 237 |
|
237 |
|
| 238 |
return 0; |
238 |
return 0; |
| 239 |
} |
239 |
} |
|
Lines 245-251
sub can_be_managed {
Link Here
|
| 245 |
|
245 |
|
| 246 |
my $patron = Koha::Patrons->find( $borrowernumber ) or return 0; |
246 |
my $patron = Koha::Patrons->find( $borrowernumber ) or return 0; |
| 247 |
return 1 |
247 |
return 1 |
| 248 |
if $self->is_public and haspermission( $patron->userid, { lists => 'edit_public_lists' } ); |
248 |
if $self->is_public and C4::Auth::haspermission( $patron->userid, { lists => 'edit_public_lists' } ); |
| 249 |
return 0; |
249 |
return 0; |
| 250 |
} |
250 |
} |
| 251 |
|
251 |
|
| 252 |
- |
|
|