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

(-)a/C4/Auth.pm (-1 / +1 lines)
Lines 2060-2065 sub _dispatch { Link Here
2060
        }
2060
        }
2061
    } elsif ($ref eq 'HASH') {
2061
    } elsif ($ref eq 'HASH') {
2062
        foreach my $key (keys %{$required}) {
2062
        foreach my $key (keys %{$required}) {
2063
            next if $flags == 1;
2063
            my $require = $required->{$key};
2064
            my $require = $required->{$key};
2064
            my $rflags  = $flags->{$key};
2065
            my $rflags  = $flags->{$key};
2065
            return 0 unless _dispatch($require, $rflags);
2066
            return 0 unless _dispatch($require, $rflags);
Lines 2084-2090 sub _dispatch { Link Here
2084
sub haspermission {
2085
sub haspermission {
2085
    my ( $userid, $flagsrequired ) = @_;
2086
    my ( $userid, $flagsrequired ) = @_;
2086
2087
2087
2088
    #Koha::Exceptions::WrongParameter->throw('$flagsrequired should not be undef')
2088
    #Koha::Exceptions::WrongParameter->throw('$flagsrequired should not be undef')
2089
    #  unless defined($flagsrequired);
2089
    #  unless defined($flagsrequired);
2090
2090
(-)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