Bug 18936: Fix several issues
Signed-off-by: Minna Kivinen <minna.kivinen@hamk.fi> Signed-off-by: Joonas Kylmälä <joonas.kylmala@helsinki.fi> Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
This commit is contained in:
parent
f7644cf307
commit
c004887e33
|
|
@ -240,14 +240,15 @@ sub get_effective_rules {
|
|||
sub set_rule {
|
||||
my ( $self, $params ) = @_;
|
||||
|
||||
for my $mandatory_parameter (qw( branchcode categorycode itemtype rule_name rule_value ) ) {
|
||||
for my $mandatory_parameter (qw( rule_name rule_value ) ) {
|
||||
Koha::Exceptions::MissingParameter->throw(
|
||||
"Required parameter 'branchcode' missing")
|
||||
"Required parameter '$mandatory_parameter' missing")
|
||||
unless exists $params->{$mandatory_parameter};
|
||||
}
|
||||
|
||||
my $kind_info = $RULE_KINDS->{ $params->{rule_name} };
|
||||
croak "set_rule given unknown rule '$params->{rule_name}'!"
|
||||
Koha::Exceptions::MissingParameter->throw(
|
||||
"set_rule given unknown rule '$params->{rule_name}'!")
|
||||
unless defined $kind_info;
|
||||
|
||||
# Enforce scope; a rule should be set for its defined scope, no more, no less.
|
||||
|
|
|
|||
Loading…
Reference in New Issue