From 2886e9e74268d6c2fd22ea4c894b41c972e26b49 Mon Sep 17 00:00:00 2001
From: Barton <barton@bywatersolutions.com>
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:
+
+      <<branches.*>>
+      <<borrowers.*>>
+
+  ISSUESLIP:
+
+      <checkedout>
+         <<biblio.*>>
+         <<items.*>>
+         <<biblioitems.*>>
+         <<issues.*>>
+      </checkedout>
+
+      <overdue>
+         <<biblio.*>>
+         <<items.*>>
+         <<biblioitems.*>>
+         <<issues.*>>
+      </overdue>
+
+      <news>
+         <<opac_news.*>>
+      </news>
+
+  ISSUEQSLIP:
+
+      <checkedout>
+         <<biblio.*>>
+         <<items.*>>
+         <<biblioitems.*>>
+         <<issues.*>>
+      </checkedout>
+
 =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