|
Lines 487-493
sub TooMany {
Link Here
|
| 487 |
my $rule_itemtype = $maxissueqty_rule->itemtype; |
487 |
my $rule_itemtype = $maxissueqty_rule->itemtype; |
| 488 |
|
488 |
|
| 489 |
my @types; |
489 |
my @types; |
| 490 |
unless ( $rule_itemtype ) { |
490 |
unless ( $rule_itemtype || $parent_maxissueqty_rule ) { |
| 491 |
# matching rule has the default item type, so count only |
491 |
# matching rule has the default item type, so count only |
| 492 |
# those existing loans that don't fall under a more |
492 |
# those existing loans that don't fall under a more |
| 493 |
# specific rule |
493 |
# specific rule |
|
Lines 519-525
sub TooMany {
Link Here
|
| 519 |
while ( my $c = $checkouts->next ) { |
519 |
while ( my $c = $checkouts->next ) { |
| 520 |
my $itemtype = $c->item->effective_itemtype; |
520 |
my $itemtype = $c->item->effective_itemtype; |
| 521 |
|
521 |
|
| 522 |
unless ( $rule_itemtype ) { |
522 |
unless ( $rule_itemtype || $parent_maxissueqty_rule ) { |
| 523 |
next if grep {$_ eq $itemtype} @types; |
523 |
next if grep {$_ eq $itemtype} @types; |
| 524 |
} else { |
524 |
} else { |
| 525 |
next unless grep {$_ eq $itemtype} @types; |
525 |
next unless grep {$_ eq $itemtype} @types; |
| 526 |
- |
|
|