Bug fixes.

diff --git a/C4/Reserves2.pm b/C4/Reserves2.pm
index f6e8c60..71d8a83 100755 (executable)
--- 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 d7686ea..b838559 100755 (executable)
--- 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);