From 2915b0f7a3adcd33b5c53dcabcde27fdaf9a40fa Mon Sep 17 00:00:00 2001
From: Paul POULAIN <paul.poulain@biblibre.com>
Date: Sun, 10 Feb 2008 01:41:46 -0600
Subject: [PATCH] overdues list, adding links to biblio & patron

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 circ/overdue.pl                               | 25 +++++++++----------
 .../prog/en/modules/circ/overdue.tmpl         |  4 +--
 2 files changed, 14 insertions(+), 15 deletions(-)

diff --git a/circ/overdue.pl b/circ/overdue.pl
index 23d5c75dc3..dd9dd203b8 100755
--- a/circ/overdue.pl
+++ b/circ/overdue.pl
@@ -119,7 +119,6 @@ my $data3;
 my $name;
 my $phone;
 my $email;
-my $biblionumber;
 my $title;
 my $author;
 my @datearr    = localtime( time() );
@@ -133,7 +132,7 @@ $bornamefilter =~s/\*/\%/g;
 $bornamefilter =~s/\?/\_/g;
 
 my $strsth="select date_due,concat(surname,' ', firstname) as borrower, 
-  borrowers.phone, borrowers.email,issues.itemnumber, items.barcode, biblio.title, biblio.author,borrowers.borrowernumber 
+  borrowers.phone, borrowers.email,issues.itemnumber, items.barcode, biblio.title, biblio.author,borrowers.borrowernumber,biblio.biblionumber 
   from issues
 LEFT JOIN borrowers ON (issues.borrowernumber=borrowers.borrowernumber )
 LEFT JOIN items ON (issues.itemnumber=items.itemnumber)
@@ -179,17 +178,17 @@ while (my $data=$sth->fetchrow_hashref) {
 
   $title=$data->{'title'};
   $author=$data->{'author'};
-  push (@overduedata, { duedate      => $duedate,
-      bornum       => $data->{borrowernumber},
-      barcode      => $data->{barcode},
-      itemnum      => $itemnum,
-      name         => $name,
-      phone        => $phone,
-      email        => $email,
-      biblionumber => $biblionumber,
-      title        => $title,
-      author       => $author });
-
+  push (@overduedata, {
+                        duedate        => $duedate,
+                        borrowernumber => $data->{borrowernumber},
+                        barcode        => $data->{barcode},
+                        itemnum        => $itemnum,
+                        name           => $name,
+                        phone          => $phone,
+                        email          => $email,
+                        biblionumber   => $data->{'biblionumber'},
+                        title          => $title,
+                        author         => $author });
 }
 
 $template->param(
diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/circ/overdue.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/circ/overdue.tmpl
index 0c6cf8d5ae..9fa9764388 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/circ/overdue.tmpl
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/circ/overdue.tmpl
@@ -69,13 +69,13 @@
     <tr>
         <td><!-- TMPL_VAR NAME="duedate" --></td>
         <!-- TMPL_IF NAME="email" -->
-        <td><a href="mailto:<!-- TMPL_VAR NAME="email" -->?subject=Overdue: <!-- TMPL_VAR NAME="title" -->"><!-- TMPL_VAR NAME="name" --></a> (<!-- TMPL_VAR NAME="phone" -->)</td>
+        <td><a href="/cgi-bin/koha/members/moremember.pl?borrowernumber=<!-- TMPL_VAR name="borrowernumber"-->"><!-- TMPL_VAR NAME="name" --></a> <a href="mailto:<!-- TMPL_VAR NAME="email" -->?subject=Overdue: <!-- TMPL_VAR NAME="title" -->">[email]</a> (<!-- TMPL_VAR NAME="phone" -->)</td>
         <!-- TMPL_ELSE -->
         <td><!-- TMPL_VAR NAME="name" --> (<!--TMPL_IF NAME="phone" --><!-- TMPL_VAR NAME="phone" --><!-- TMPL_ELSE -->
     <!--TMPL_IF NAME="mobile" --><!-- TMPL_VAR NAME="mobile" --><!-- TMPL_ELSE --><!--TMPL_IF NAME="phonepro" -->       <!-- TMPL_VAR NAME="phonepro" --><!-- /TMPL_IF --><!-- /TMPL_IF --><!-- /TMPL_IF -->)</td>
         <!-- /TMPL_IF -->
         <td>
-            <p><!-- TMPL_VAR NAME="title" --></p>
+            <p><a href="/cgi-bin/koha/catalogue/detail.pl?biblionumber=<!-- TMPL_VAR name="biblionumber" -->"><!-- TMPL_VAR NAME="title" --></a></p>
             <p><!-- TMPL_VAR NAME="author" --></p>
         </td>
     </tr>
-- 
2.39.5