Bug 13819: 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

Signed-off-by: Frederic Demians <f.demians@tamil.fr>
  - Works as described. ISBN appears on ISSUESLIP & ISSUEQSLIP.

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
  - Not all fields for biblioitems are available, but neither
    are they all available for other tables. Noted in POD.

Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>

diff --git a/C4/Members.pm b/C4/Members.pm
index 605787c..9f6659f 100644 (file)
--- a/C4/Members.pm
+++ b/C4/Members.pm
@@ -2436,6 +2436,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 {
@@ -2469,9 +2505,10 @@ sub IssueSlip {
         $letter_code = 'ISSUEQSLIP';
         %repeat =  (
             'checkedout' => [ map {
-                'biblio' => $_,
-                'items'  => $_,
-                'issues' => $_,
+                'biblio'       => $_,
+                'items'        => $_,
+                'biblioitems'  => $_,
+                'issues'       => $_,
             }, grep { $_->{'now'} } @issues ],
         );
     }
@@ -2479,15 +2516,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 {