|
Lines 91-109
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}, undef ); |
94 |
push @patrons_with_permission, $patron |
| 95 |
if ( $perms->{superlibrarian} == 1 |
95 |
if haspermission( $patron->{userid}, { $permission => $subpermission } ); |
| 96 |
or $perms->{$permission} == 1 ) |
|
|
| 97 |
{ |
| 98 |
push @patrons_with_permission, $patron; |
| 99 |
next; |
| 100 |
} |
| 101 |
|
| 102 |
if ($subpermission) { |
| 103 |
my $subperms = get_user_subpermissions( $patron->{userid} ); |
| 104 |
push @patrons_with_permission, $patron |
| 105 |
if $subperms->{$permission}->{$subpermission}; |
| 106 |
} |
| 107 |
} |
96 |
} |
| 108 |
$results->{patrons} = \@patrons_with_permission; |
97 |
$results->{patrons} = \@patrons_with_permission; |
| 109 |
$results->{iTotalDisplayRecords} = scalar( @patrons_with_permission ); |
98 |
$results->{iTotalDisplayRecords} = scalar( @patrons_with_permission ); |
| 110 |
- |
|
|