Lines 91-97
if ($has_permission) {
Link Here
|
91 |
my ( $permission, $subpermission ) = split /\./, $has_permission; |
91 |
my ( $permission, $subpermission ) = split /\./, $has_permission; |
92 |
my @patrons_with_permission; |
92 |
my @patrons_with_permission; |
93 |
for my $patron ( @{ $results->{patrons} } ) { |
93 |
for my $patron ( @{ $results->{patrons} } ) { |
94 |
my $perms = haspermission( $patron->{userid}, '*' ); |
94 |
my $perms = haspermission( $patron->{userid}, undef ); |
95 |
if ( $perms->{superlibrarian} == 1 |
95 |
if ( $perms->{superlibrarian} == 1 |
96 |
or $perms->{$permission} == 1 ) |
96 |
or $perms->{$permission} == 1 ) |
97 |
{ |
97 |
{ |
98 |
- |
|
|