|
Lines 518-524
if (@myitemtypes) {
Link Here
|
| 518 |
@itemtypes = Koha::ItemTypes->search()->get_column('itemtype'); |
518 |
@itemtypes = Koha::ItemTypes->search()->get_column('itemtype'); |
| 519 |
} |
519 |
} |
| 520 |
|
520 |
|
| 521 |
my %already_queued; |
|
|
| 522 |
my %seen = map { $_ => 1 } @branches; |
521 |
my %seen = map { $_ => 1 } @branches; |
| 523 |
|
522 |
|
| 524 |
# Work through branches |
523 |
# Work through branches |
|
Lines 734-742
END_SQL
Link Here
|
| 734 |
$data->{'firstname'} || '', |
733 |
$data->{'firstname'} || '', |
| 735 |
$data->{borrowernumber} |
734 |
$data->{borrowernumber} |
| 736 |
); |
735 |
); |
| 737 |
warn sprintf "Overdue matched trigger %s with delay of %s days and overdue due date of %s\n", |
736 |
warn sprintf "Overdue matched trigger %s for %s with delay of %s days and overdue due date of %s\n", |
| 738 |
$i, |
737 |
$i, $borr, |
| 739 |
$triggered, $overdue_rules->{ "overdue_$i" . '_delay' }, $data->{date_due}; |
738 |
$overdue_rules->{ "overdue_$i" . '_delay' }, $data->{date_due}; |
| 740 |
warn sprintf "Using letter code '%s'\n", |
739 |
warn sprintf "Using letter code '%s'\n", |
| 741 |
$overdue_rules->{ "overdue_$i" . '_notice' }; |
740 |
$overdue_rules->{ "overdue_$i" . '_notice' }; |
| 742 |
} |
741 |
} |
|
Lines 1049-1055
sub _enact_trigger {
Link Here
|
| 1049 |
} |
1048 |
} |
| 1050 |
} |
1049 |
} |
| 1051 |
|
1050 |
|
| 1052 |
$already_queued{"$borrowernumber$trigger"} = 1; |
|
|
| 1053 |
} |
1051 |
} |
| 1054 |
} |
1052 |
} |
| 1055 |
|
1053 |
|
| 1056 |
- |
|
|