diff --git a/C4/Auth.pm b/C4/Auth.pm index 5a0df07bfa..9ac819b437 100644 --- a/C4/Auth.pm +++ b/C4/Auth.pm @@ -2066,6 +2066,7 @@ sub _dispatch { } } elsif ($ref eq 'HASH') { foreach my $key (keys %{$required}) { + next if $flags == 1; my $require = $required->{$key}; my $rflags = $flags->{$key}; return 0 unless _dispatch($require, $rflags); @@ -2090,7 +2091,6 @@ sub _dispatch { sub haspermission { my ( $userid, $flagsrequired ) = @_; - #Koha::Exceptions::WrongParameter->throw('$flagsrequired should not be undef') # unless defined($flagsrequired); diff --git a/t/db_dependent/Auth/haspermission.t b/t/db_dependent/Auth/haspermission.t index 0eb6c3c3c5..064422b013 100644 --- a/t/db_dependent/Auth/haspermission.t +++ b/t/db_dependent/Auth/haspermission.t @@ -111,7 +111,7 @@ subtest 'scalar top level tests' => sub { subtest 'hashref top level AND tests' => sub { - plan tests => 15; + plan tests => 16; # Check top level permission for superlibrarian my $r =