sub haspermission {
my ( $userid, $flagsrequired ) = @_;
- return 1 unless defined($flagsrequired); # This is horrifying but restores behaviour prior to bug 22031
#Koha::Exceptions::WrongParameter->throw('$flagsrequired should not be undef')
# unless defined($flagsrequired);
my $row = $sth->fetchrow();
my $flags = getuserflags( $row, $userid );
+ return $flags unless defined($flagsrequired);
return $flags if $flags->{superlibrarian};
return _dispatch($flagsrequired, $flags);