[MT2195] Display issuing branch in reading record

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>

diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/members/readingrec.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/members/readingrec.tmpl
index 13e9546..d24a3a6 100644 (file)
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/readingrec.tmpl
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/members/readingrec.tmpl
@@ -34,6 +34,7 @@
        <th>Barcode</th>
        <th>Number of Renewals</th>
        <th>Issue date</th>
+       <th>Issuing branch</th>
        <th>Date Due</th>
        <th>
                <a href="readingrec.pl?borrowernumber=<!-- TMPL_VAR name="borrowernumber" -->&amp;order=returndate%20DESC&amp;limit=<!-- TMPL_VAR name="limit" -->">Return Date</a>
@@ -64,6 +65,8 @@
         <!-- TMPL_VAR NAME="renewals" --></td>
             <td>
         <!-- TMPL_VAR NAME="issuedate" --></td>
+            <td>
+        <!-- TMPL_VAR NAME="issuingbranch" --></td>
                        <td><!-- TMPL_IF NAME="date_due" --><!-- TMPL_VAR NAME="date_due" --><!-- TMPL_ELSE -->&nbsp;<!-- /TMPL_IF --></td>
             <td>
         <!-- TMPL_IF NAME="returndate" -->

diff --git a/members/readingrec.pl b/members/readingrec.pl
index b899ac1..6488be2 100755 (executable)
--- a/members/readingrec.pl
+++ b/members/readingrec.pl
@@ -98,7 +98,8 @@ foreach my $issue (@{$issues}){
        $line{classification}  = $issue->{'classification'} || $issue->{'itemcallnumber'};
        $line{date_due}        = format_date($issue->{'date_due'});
        $line{returndate}      = format_date($issue->{'returndate'});
-       $line{issuedate}      = format_date($issue->{'issuedate'});
+       $line{issuedate}       = format_date($issue->{'issuedate'});
+       $line{issuingbranch}   = GetBranchName($issues->[$i]->{'issuingbranch'});
        $line{renewals}        = $issue->{'renewals'};
        $line{barcode}         = $issue->{'barcode'};
        $line{volumeddesc}     = $issue->{'volumeddesc'};