From 1bd4b5dbbb50b5f06aba27ba338eb6dbef198792 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Wed, 14 Jun 2006 15:37:46 +0000
Subject: [PATCH] bugfix in overdue list

---
 overdue.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/overdue.pl b/overdue.pl
index f04c445969..67b63ca4a3 100755
--- a/overdue.pl
+++ b/overdue.pl
@@ -121,7 +121,7 @@ my $dbh = C4::Context->dbh;
 $bornamefilter =~s/\*/\%/g;
 $bornamefilter =~s/\?/\_/g;
 
-my $strsth="select date_due,concat(surname,' ', firstname) as borrower, borrowers.phone, borrowers.emailaddress,issues.itemnumber, biblio.title, biblio.author from issues
+my $strsth="select date_due,concat(surname,' ', firstname) as borrower, borrowers.phone, borrowers.emailaddress,issues.itemnumber, biblio.title, biblio.author,borrowers.borrowernumber from issues
 LEFT JOIN borrowers ON issues.borrowernumber=borrowers.borrowernumber 
 LEFT JOIN items ON issues.itemnumber=items.itemnumber
 LEFT JOIN biblioitems ON biblioitems.biblioitemnumber=items.biblioitemnumber
@@ -159,7 +159,7 @@ while (my $data=$sth->fetchrow_hashref) {
   $title=$data->{'title'};
   $author=$data->{'author'};
   push (@overduedata, {	duedate      => $duedate,
-			bornum       => $bornum,
+			bornum       => $data->{borrowernumber},
 			itemnum      => $itemnum,
 			name         => $name,
 			phone        => $phone,
-- 
2.39.5