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