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 |
|