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

(-)a/C4/Auth.pm (-1 / +1 lines)
Lines 2066-2071 sub _dispatch { Link Here
2066
        }
2066
        }
2067
    } elsif ($ref eq 'HASH') {
2067
    } elsif ($ref eq 'HASH') {
2068
        foreach my $key (keys %{$required}) {
2068
        foreach my $key (keys %{$required}) {
2069
            next if $flags == 1;
2069
            my $require = $required->{$key};
2070
            my $require = $required->{$key};
2070
            my $rflags  = $flags->{$key};
2071
            my $rflags  = $flags->{$key};
2071
            return 0 unless _dispatch($require, $rflags);
2072
            return 0 unless _dispatch($require, $rflags);
Lines 2090-2096 sub _dispatch { Link Here
2090
sub haspermission {
2091
sub haspermission {
2091
    my ( $userid, $flagsrequired ) = @_;
2092
    my ( $userid, $flagsrequired ) = @_;
2092
2093
2093
2094
    #Koha::Exceptions::WrongParameter->throw('$flagsrequired should not be undef')
2094
    #Koha::Exceptions::WrongParameter->throw('$flagsrequired should not be undef')
2095
    #  unless defined($flagsrequired);
2095
    #  unless defined($flagsrequired);
2096
2096
(-)a/t/db_dependent/Auth/haspermission.t (-2 / +1 lines)
Lines 111-117 subtest 'scalar top level tests' => sub { Link Here
111
111
112
subtest 'hashref top level AND tests' => sub {
112
subtest 'hashref top level AND tests' => sub {
113
113
114
    plan tests => 15;
114
    plan tests => 16;
115
115
116
    # Check top level permission for superlibrarian
116
    # Check top level permission for superlibrarian
117
    my $r =
117
    my $r =
118
- 

Return to bug 20128