Lines 325-338
sub set_rule {
Link Here
|
325 |
sub set_rules { |
325 |
sub set_rules { |
326 |
my ( $self, $params ) = @_; |
326 |
my ( $self, $params ) = @_; |
327 |
|
327 |
|
328 |
my %set_params; |
|
|
329 |
$set_params{branchcode} = $params->{branchcode} if exists $params->{branchcode}; |
330 |
$set_params{categorycode} = $params->{categorycode} if exists $params->{categorycode}; |
331 |
$set_params{itemtype} = $params->{itemtype} if exists $params->{itemtype}; |
332 |
my $rules = $params->{rules}; |
328 |
my $rules = $params->{rules}; |
333 |
|
329 |
|
334 |
my $rule_objects = []; |
330 |
my $rule_objects = []; |
335 |
while ( my ( $rule_name, $rule_value ) = each %$rules ) { |
331 |
while ( my ( $rule_name, $rule_value ) = each %$rules ) { |
|
|
332 |
my %set_params; |
333 |
foreach my $set_param ( values @{$RULE_KINDS->{$rule_name}->{scope}} ) { |
334 |
if ( exists $params->{$set_param} ) { |
335 |
$set_params{$set_param} = $params->{$set_param}; |
336 |
} |
337 |
} |
336 |
my $rule_object = Koha::CirculationRules->set_rule( |
338 |
my $rule_object = Koha::CirculationRules->set_rule( |
337 |
{ |
339 |
{ |
338 |
%set_params, |
340 |
%set_params, |
339 |
- |
|
|