View | Details | Raw Unified | Return to bug 22529
Collapse All | Expand All

(-)a/svc/members/search (-14 / +2 lines)
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
- 

Return to bug 22529