|
Lines 2429-2434
sub DeleteMessage {
Link Here
|
| 2429 |
|
2429 |
|
| 2430 |
$quickslip is boolean, to indicate whether we want a quick slip |
2430 |
$quickslip is boolean, to indicate whether we want a quick slip |
| 2431 |
|
2431 |
|
|
|
2432 |
IssueSlip populates ISSUESLIP and ISSUEQSLIP, and will make the following expansions: |
| 2433 |
|
| 2434 |
Both slips: |
| 2435 |
|
| 2436 |
<<branches.*>> |
| 2437 |
<<borrowers.*>> |
| 2438 |
|
| 2439 |
ISSUESLIP: |
| 2440 |
|
| 2441 |
<checkedout> |
| 2442 |
<<biblio.*>> |
| 2443 |
<<items.*>> |
| 2444 |
<<biblioitems.*>> |
| 2445 |
<<issues.*>> |
| 2446 |
</checkedout> |
| 2447 |
|
| 2448 |
<overdue> |
| 2449 |
<<biblio.*>> |
| 2450 |
<<items.*>> |
| 2451 |
<<biblioitems.*>> |
| 2452 |
<<issues.*>> |
| 2453 |
</overdue> |
| 2454 |
|
| 2455 |
<news> |
| 2456 |
<<opac_news.*>> |
| 2457 |
</news> |
| 2458 |
|
| 2459 |
ISSUEQSLIP: |
| 2460 |
|
| 2461 |
<checkedout> |
| 2462 |
<<biblio.*>> |
| 2463 |
<<items.*>> |
| 2464 |
<<biblioitems.*>> |
| 2465 |
<<issues.*>> |
| 2466 |
</checkedout> |
| 2467 |
|
| 2432 |
=cut |
2468 |
=cut |
| 2433 |
|
2469 |
|
| 2434 |
sub IssueSlip { |
2470 |
sub IssueSlip { |
|
Lines 2456-2464
sub IssueSlip {
Link Here
|
| 2456 |
$letter_code = 'ISSUEQSLIP'; |
2492 |
$letter_code = 'ISSUEQSLIP'; |
| 2457 |
%repeat = ( |
2493 |
%repeat = ( |
| 2458 |
'checkedout' => [ map { |
2494 |
'checkedout' => [ map { |
| 2459 |
'biblio' => $_, |
2495 |
'biblio' => $_, |
| 2460 |
'items' => $_, |
2496 |
'items' => $_, |
| 2461 |
'issues' => $_, |
2497 |
'biblioitems' => $_, |
|
|
2498 |
'issues' => $_, |
| 2462 |
}, grep { $_->{'now'} } @issues ], |
2499 |
}, grep { $_->{'now'} } @issues ], |
| 2463 |
); |
2500 |
); |
| 2464 |
} |
2501 |
} |
|
Lines 2466-2480
sub IssueSlip {
Link Here
|
| 2466 |
$letter_code = 'ISSUESLIP'; |
2503 |
$letter_code = 'ISSUESLIP'; |
| 2467 |
%repeat = ( |
2504 |
%repeat = ( |
| 2468 |
'checkedout' => [ map { |
2505 |
'checkedout' => [ map { |
| 2469 |
'biblio' => $_, |
2506 |
'biblio' => $_, |
| 2470 |
'items' => $_, |
2507 |
'items' => $_, |
| 2471 |
'issues' => $_, |
2508 |
'biblioitems' => $_, |
|
|
2509 |
'issues' => $_, |
| 2472 |
}, grep { !$_->{'overdue'} } @issues ], |
2510 |
}, grep { !$_->{'overdue'} } @issues ], |
| 2473 |
|
2511 |
|
| 2474 |
'overdue' => [ map { |
2512 |
'overdue' => [ map { |
| 2475 |
'biblio' => $_, |
2513 |
'biblio' => $_, |
| 2476 |
'items' => $_, |
2514 |
'items' => $_, |
| 2477 |
'issues' => $_, |
2515 |
'biblioitems' => $_, |
|
|
2516 |
'issues' => $_, |
| 2478 |
}, grep { $_->{'overdue'} } @issues ], |
2517 |
}, grep { $_->{'overdue'} } @issues ], |
| 2479 |
|
2518 |
|
| 2480 |
'news' => [ map { |
2519 |
'news' => [ map { |
| 2481 |
- |
|
|