Lines 3301-3340
sub GetIssuingCharges {
Link Here
|
3301 |
sub _get_discount_from_rule { |
3301 |
sub _get_discount_from_rule { |
3302 |
my ($categorycode, $branchcode, $itemtype) = @_; |
3302 |
my ($categorycode, $branchcode, $itemtype) = @_; |
3303 |
|
3303 |
|
3304 |
# Set search precedences |
3304 |
my $rule = Koha::CirculationRules->get_effective_rule( { |
3305 |
my @params = ( |
3305 |
branchcode => $branchcode, |
3306 |
{ |
3306 |
itemtype => $itemtype, |
3307 |
branchcode => $branchcode, |
3307 |
categorycode => $categorycode, |
3308 |
itemtype => $itemtype, |
3308 |
rule_name => 'rentaldiscount', |
3309 |
categorycode => $categorycode, |
3309 |
} ); |
3310 |
}, |
3310 |
|
3311 |
{ |
3311 |
return $rule->rule_value if $rule; |
3312 |
branchcode => undef, |
|
|
3313 |
categorycode => $categorycode, |
3314 |
itemtype => $itemtype, |
3315 |
}, |
3316 |
{ |
3317 |
branchcode => $branchcode, |
3318 |
categorycode => $categorycode, |
3319 |
itemtype => undef, |
3320 |
}, |
3321 |
{ |
3322 |
branchcode => undef, |
3323 |
categorycode => $categorycode, |
3324 |
itemtype => undef, |
3325 |
}, |
3326 |
); |
3327 |
|
3328 |
foreach my $params (@params) { |
3329 |
my $rule = Koha::CirculationRules->search( |
3330 |
{ |
3331 |
rule_name => 'rentaldiscount', |
3332 |
%$params, |
3333 |
} |
3334 |
)->next(); |
3335 |
|
3336 |
return $rule->rule_value if $rule; |
3337 |
} |
3338 |
|
3312 |
|
3339 |
# none of the above |
3313 |
# none of the above |
3340 |
return 0; |
3314 |
return 0; |
3341 |
- |
|
|