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