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

(-)a/C4/Auth.pm (-3 / +3 lines)
Lines 2235-2241 necessary to check borrowers.flags. Link Here
2235
=cut
2235
=cut
2236
2236
2237
sub get_user_subpermissions {
2237
sub get_user_subpermissions {
2238
    my $userid = shift;
2238
    my $borrowernumber = shift;
2239
2239
2240
    my $dbh = C4::Context->dbh;
2240
    my $dbh = C4::Context->dbh;
2241
    my $sth = $dbh->prepare(
2241
    my $sth = $dbh->prepare(
Lines 2244-2252 sub get_user_subpermissions { Link Here
2244
                             JOIN permissions USING (module_bit, code)
2244
                             JOIN permissions USING (module_bit, code)
2245
                             JOIN userflags ON (module_bit = bit)
2245
                             JOIN userflags ON (module_bit = bit)
2246
                             JOIN borrowers USING (borrowernumber)
2246
                             JOIN borrowers USING (borrowernumber)
2247
                             WHERE userid = ?"
2247
                             WHERE borrowernumber = ?"
2248
    );
2248
    );
2249
    $sth->execute($userid);
2249
    $sth->execute($borrowernumber);
2250
2250
2251
    my $user_perms = {};
2251
    my $user_perms = {};
2252
    while ( my $perm = $sth->fetchrow_hashref ) {
2252
    while ( my $perm = $sth->fetchrow_hashref ) {
(-)a/about.pl (-1 / +3 lines)
Lines 395-401 if ( $tab eq 'sysinfo' ) { Link Here
395
        and C4::Context->preference('AutoSelfCheckAllowed') )
395
        and C4::Context->preference('AutoSelfCheckAllowed') )
396
    {
396
    {
397
        my $userid          = C4::Context->preference('AutoSelfCheckID');
397
        my $userid          = C4::Context->preference('AutoSelfCheckID');
398
        my $all_permissions = C4::Auth::get_user_subpermissions($userid);
398
        my $borrowernumber  = Koha::Patrons->find( { userid => $userid } )->borrowernumber;
399
        my $all_permissions = C4::Auth::get_user_subpermissions($borrowernumber);
400
399
        my ( $has_self_checkout_perm, $has_other_permissions );
401
        my ( $has_self_checkout_perm, $has_other_permissions );
400
        while ( my ( $module, $permissions ) = each %$all_permissions ) {
402
        while ( my ( $module, $permissions ) = each %$all_permissions ) {
401
            if ( $module eq 'self_check' ) {
403
            if ( $module eq 'self_check' ) {
(-)a/members/member-flags.pl (-2 / +1 lines)
Lines 121-127 if ( $op eq 'cud-newflags' ) { Link Here
121
    }
121
    }
122
122
123
    my $all_perms  = get_all_subpermissions();
123
    my $all_perms  = get_all_subpermissions();
124
    my $user_perms = get_user_subpermissions( $bor->{'userid'} );
124
    my $user_perms = get_user_subpermissions( $bor->{'borrowernumber'} );
125
    $sth = $dbh->prepare("SELECT bit, flag FROM userflags ORDER BY bit");
125
    $sth = $dbh->prepare("SELECT bit, flag FROM userflags ORDER BY bit");
126
    $sth->execute;
126
    $sth->execute;
127
    my @loop;
127
    my @loop;
128
- 

Return to bug 41269