Adding a few columns to members/readingrec.pl

Add barcode and issues.renewals to members/readingrec.pl
Had to change the query in C4/Members, items.renewals was squashing
issues.renewals.

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>

diff --git a/C4/Members.pm b/C4/Members.pm
index 8a30ca6..e756ffb 100644 (file)
--- 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 09c1fc8..7d28070 100644 (file)
--- 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>
@@ -51,6 +53,12 @@
             <td>
         <!-- 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" -->

diff --git a/members/readingrec.pl b/members/readingrec.pl
index 2f85349..21d4f3a 100755 (executable)
--- a/members/readingrec.pl
+++ b/members/readingrec.pl
@@ -73,6 +73,8 @@ for (my $i=0;$i<$count;$i++){
        $line{classification} = $issues->[$i]->{'classification'} || $issues->[$i]->{'itemcallnumber'};
        $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);
 }