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