[Koha-patches] [PATCH] Adding a few columns to members/readingrec.pl

[Michael Hafen]

Add barcode and issues.renewals to members/readingrec.pl
Had to change the query in C4/Members, items.renewals was squashing
issues.renewals.
---
 C4/Members.pm                                      |    4 ++--
 .../prog/en/modules/members/readingrec.tmpl        |    8 ++++++++
 members/readingrec.pl                              |    2 ++
 3 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/C4/Members.pm b/C4/Members.pm
index 8a30ca6..e756ffb 100644
--- a/C4/Members.pm
+++ b/C4/Members.pm
@@ -1049,14 +1049,14 @@ sub GetAllIssues {
     my $dbh   = C4::Context->dbh;
     my $count = 0;
     my $query =
-  "SELECT *,items.timestamp AS itemstimestamp 
+  "SELECT *,issues.renewals AS renewals,items.renewals AS totalrenewals,items.timestamp AS itemstimestamp 
   FROM issues 
   LEFT JOIN items on items.itemnumber=issues.itemnumber
   LEFT JOIN biblio ON items.biblionumber=biblio.biblionumber
   LEFT JOIN biblioitems ON items.biblioitemnumber=biblioitems.biblioitemnumber
   WHERE borrowernumber=? 
   UNION ALL
-  SELECT *,items.timestamp AS itemstimestamp 
+  SELECT *,old_issues.renewals AS renewals,items.renewals AS totalrenewals,items.timestamp AS itemstimestamp 
   FROM old_issues 
   LEFT JOIN items on items.itemnumber=old_issues.itemnumber
   LEFT JOIN biblio ON items.biblionumber=biblio.biblionumber
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 42a7e79..c4abced 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/readingrec.tmpl
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/members/readingrec.tmpl
@@ -28,6 +28,8 @@
 		<a href="readingrec.pl?borrowernumber=<!-- TMPL_VAR name="borrowernumber" -->&amp;order=author&amp;limit=<!-- TMPL_VAR name="limit" -->">Author</a>
 	</th>
 	<th>Call No.</th>
+	<th>Barcode</th>
+	<th>Number of Renewals</th>
 	<th>
 		<a href="readingrec.pl?borrowernumber=<!-- TMPL_VAR name="borrowernumber" -->&amp;order=returndate DESC&amp;limit=<!-- TMPL_VAR name="limit" -->">Return Date</a>
 	</th>
@@ -52,6 +54,12 @@
         <!-- TMPL_VAR NAME="classification" --></td>
 
             <td>
+        <!-- TMPL_VAR NAME="barcode" --></td>
+
+            <td>
+        <!-- TMPL_VAR NAME="renewals" --></td>
+
+            <td>
         <!-- TMPL_IF NAME="returndate" -->
             <!-- TMPL_VAR name="returndate" -->
         <!-- TMPL_ELSE -->
diff --git a/members/readingrec.pl b/members/readingrec.pl
index 2809129..a5a5bb0 100755
--- a/members/readingrec.pl
+++ b/members/readingrec.pl
@@ -73,6 +73,8 @@ for (my $i=0;$i<$count;$i++){
 	$line{classification} = $issues->[$i]->{'classification'};
 	$line{date_due}=format_date($issues->[$i]->{'date_due'});
 	$line{returndate}=format_date($issues->[$i]->{'returndate'});
+	$line{renewals}=$issues->[$i]->{'renewals'};
+	$line{barcode}=$issues->[$i]->{'barcode'};
 	$line{volumeddesc}=$issues->[$i]->{'volumeddesc'};
 	push(@loop_reading,\%line);
 }
-- 
1.5.4.3