Bug fixes.

This commit is contained in:
wolfpac444 2003-05-19 13:59:12 +00:00
parent 3e6b85ad3c
commit 9f32a8adf0
2 changed files with 2 additions and 2 deletions

View file

@ -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) ?

View file

@ -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);