From 9f32a8adf02c66f3048f493e6926529fbe5030bc Mon Sep 17 00:00:00 2001 From: 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.5