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