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