From 9f32a8adf02c66f3048f493e6926529fbe5030bc Mon Sep 17 00:00:00 2001
From: wolfpac444 <wolfpac444>
Date: Mon, 19 May 2003 13:59:12 +0000
Subject: [PATCH] Bug fixes.

---
 C4/Reserves2.pm | 2 +-
 moremember.pl   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/C4/Reserves2.pm b/C4/Reserves2.pm
index f6e8c60140..71d8a83a3d 100755
--- a/C4/Reserves2.pm
+++ b/C4/Reserves2.pm
@@ -106,7 +106,7 @@ sub FindReserves {
 	my ($bib,$bor)=@_;
 	my $dbh = C4::Context->dbh;
 	# Find the desired items in the reserves
-	my $query="SELECT *,reserves.branchcode,biblio.title AS btitle  FROM reserves,borrowers,biblio ";
+	my $query="SELECT *,reserves.branchcode,biblio.title AS btitle, reserves.timestamp as rtimestamp FROM reserves,borrowers,biblio ";
 	# FIXME - These three bits of SQL seem to contain a fair amount of
 	# redundancy. Wouldn't it be better to have a @clauses array, add
 	# one or two clauses as necessary, then join(" AND ", @clauses) ?
diff --git a/moremember.pl b/moremember.pl
index d7686eabc1..b838559e3b 100755
--- a/moremember.pl
+++ b/moremember.pl
@@ -195,7 +195,7 @@ foreach my $reserveline (@$reserves) {
 	my $restitle;
 	my %row = %$reserveline;
 	if ($reserveline->{'constrainttype'} eq 'o'){
-		$restitle=getreservetitle($reserveline->{'biblionumber'},$reserveline->{'borrowernumber'},$reserveline->{'reservedate'},$reserveline->{'timestamp'});
+		$restitle=getreservetitle($reserveline->{'biblionumber'},$reserveline->{'borrowernumber'},$reserveline->{'reservedate'},$reserveline->{'rtimestamp'});
 		%row =  (%row , %$restitle) if $restitle;
 	}
 	push (@reservedata, \%row);
-- 
2.39.2