From 2886e9e74268d6c2fd22ea4c894b41c972e26b49 Mon Sep 17 00:00:00 2001 From: Barton Date: Wed, 11 Mar 2015 22:53:11 +0000 Subject: [PATCH] Add biblioitems to ISSUESLIP and ISSUEQSLIP in C4::Members::IssueSlip() Document all expansions within C4::Members::IssueSlip() http://bugs.koha-community.org/show_bug.cgi?id=13819 --- C4/Members.pm | 57 ++++++++++++++++++++++++++++++++++++++++++++++++--------- 1 file changed, 48 insertions(+), 9 deletions(-) diff --git a/C4/Members.pm b/C4/Members.pm index 4fb845d..7f323d7 100644 --- a/C4/Members.pm +++ b/C4/Members.pm @@ -2429,6 +2429,42 @@ sub DeleteMessage { $quickslip is boolean, to indicate whether we want a quick slip + IssueSlip populates ISSUESLIP and ISSUEQSLIP, and will make the following expansions: + + Both slips: + + <> + <> + + ISSUESLIP: + + + <> + <> + <> + <> + + + + <> + <> + <> + <> + + + + <> + + + ISSUEQSLIP: + + + <> + <> + <> + <> + + =cut sub IssueSlip { @@ -2456,9 +2492,10 @@ sub IssueSlip { $letter_code = 'ISSUEQSLIP'; %repeat = ( 'checkedout' => [ map { - 'biblio' => $_, - 'items' => $_, - 'issues' => $_, + 'biblio' => $_, + 'items' => $_, + 'biblioitems' => $_, + 'issues' => $_, }, grep { $_->{'now'} } @issues ], ); } @@ -2466,15 +2503,17 @@ sub IssueSlip { $letter_code = 'ISSUESLIP'; %repeat = ( 'checkedout' => [ map { - 'biblio' => $_, - 'items' => $_, - 'issues' => $_, + 'biblio' => $_, + 'items' => $_, + 'biblioitems' => $_, + 'issues' => $_, }, grep { !$_->{'overdue'} } @issues ], 'overdue' => [ map { - 'biblio' => $_, - 'items' => $_, - 'issues' => $_, + 'biblio' => $_, + 'items' => $_, + 'biblioitems' => $_, + 'issues' => $_, }, grep { $_->{'overdue'} } @issues ], 'news' => [ map { -- 1.7.10.4