Lines 240-253
sub get_effective_rules {
Link Here
|
240 |
sub set_rule { |
240 |
sub set_rule { |
241 |
my ( $self, $params ) = @_; |
241 |
my ( $self, $params ) = @_; |
242 |
|
242 |
|
243 |
for my $mandatory_parameter (qw( branchcode categorycode itemtype rule_name rule_value ) ) { |
243 |
for my $mandatory_parameter (qw( rule_name rule_value ) ) { |
244 |
Koha::Exceptions::MissingParameter->throw( |
244 |
Koha::Exceptions::MissingParameter->throw( |
245 |
"Required parameter 'branchcode' missing") |
245 |
"Required parameter '$mandatory_parameter' missing") |
246 |
unless exists $params->{$mandatory_parameter}; |
246 |
unless exists $params->{$mandatory_parameter}; |
247 |
} |
247 |
} |
248 |
|
248 |
|
249 |
my $kind_info = $RULE_KINDS->{ $params->{rule_name} }; |
249 |
my $kind_info = $RULE_KINDS->{ $params->{rule_name} }; |
250 |
croak "set_rule given unknown rule '$params->{rule_name}'!" |
250 |
Koha::Exceptions::MissingParameter->throw( |
|
|
251 |
"set_rule given unknown rule '$params->{rule_name}'!") |
251 |
unless defined $kind_info; |
252 |
unless defined $kind_info; |
252 |
|
253 |
|
253 |
# Enforce scope; a rule should be set for its defined scope, no more, no less. |
254 |
# Enforce scope; a rule should be set for its defined scope, no more, no less. |