|
Lines 390-396
if ($digest_per_branch) {
Link Here
|
| 390 |
while (my ($branchcode, $digests) = each %$due_digest) { |
390 |
while (my ($branchcode, $digests) = each %$due_digest) { |
| 391 |
send_digests({ |
391 |
send_digests({ |
| 392 |
sth => $sth_digest, |
392 |
sth => $sth_digest, |
| 393 |
digest => $due_digest, |
393 |
digests => $due_digest, |
| 394 |
letter_code => 'DUEDGST', |
394 |
letter_code => 'DUEDGST', |
| 395 |
branchcode => $branchcode, |
395 |
branchcode => $branchcode, |
| 396 |
get_item_info => sub { |
396 |
get_item_info => sub { |
|
Lines 419-425
if ($digest_per_branch) {
Link Here
|
| 419 |
|
419 |
|
| 420 |
send_digests({ |
420 |
send_digests({ |
| 421 |
sth => $sth_digest, |
421 |
sth => $sth_digest, |
| 422 |
digest => $due_digest, |
422 |
digests => $due_digest, |
| 423 |
letter_code => 'DUEDGST', |
423 |
letter_code => 'DUEDGST', |
| 424 |
get_item_info => sub { |
424 |
get_item_info => sub { |
| 425 |
my $params = shift; |
425 |
my $params = shift; |
| 426 |
- |
|
|