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 |
- |
|
|