|
Lines 53-61
sub get_effective_rule {
Link Here
|
| 53 |
my $search_params; |
53 |
my $search_params; |
| 54 |
$search_params->{rule_name} = $rule_name; |
54 |
$search_params->{rule_name} = $rule_name; |
| 55 |
|
55 |
|
| 56 |
$search_params->{categorycode} = defined $categorycode ? { 'in' => [ $categorycode, '*' ] } : undef; |
56 |
$search_params->{categorycode} = defined $categorycode ? [ $categorycode, undef ] : undef; |
| 57 |
$search_params->{itemtype} = defined $itemtype ? { 'in' => [ $itemtype, '*' ] } : undef; |
57 |
$search_params->{itemtype} = defined $itemtype ? [ $itemtype, undef ] : undef; |
| 58 |
$search_params->{branchcode} = defined $branchcode ? { 'in' => [ $branchcode, '*' ] } : undef; |
58 |
$search_params->{branchcode} = defined $branchcode ? [ $branchcode, undef ] : undef; |
| 59 |
|
59 |
|
| 60 |
my $rule = $self->search( |
60 |
my $rule = $self->search( |
| 61 |
$search_params, |
61 |
$search_params, |
|
Lines 94-99
sub set_rule {
Link Here
|
| 94 |
my $rule_name = $params->{rule_name}; |
94 |
my $rule_name = $params->{rule_name}; |
| 95 |
my $rule_value = $params->{rule_value}; |
95 |
my $rule_value = $params->{rule_value}; |
| 96 |
|
96 |
|
|
|
97 |
for my $v ( $branchcode, $categorycode, $itemtype ) { |
| 98 |
$v = undef if $v and $v eq '*'; |
| 99 |
} |
| 97 |
my $rule = $self->search( |
100 |
my $rule = $self->search( |
| 98 |
{ |
101 |
{ |
| 99 |
rule_name => $rule_name, |
102 |
rule_name => $rule_name, |