gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Changed FindReserves so that it gets biblioitem data if the reserve has a reserve constraint.

This commit is contained in:
finlayt 2002-07-25 21:41:10 +00:00
parent 0ae56dd011
commit 6eae239bb2
1 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
C4/Reserves2.pm
View File

@ -4,6 +4,7 @@ use strict;
require Exporter;
use DBI;
use C4::Database;
use C4::Search;
#use C4::Accounts;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
@ -51,8 +52,25 @@ sub FindReserves {
my $i=0;
my @results;
while (my $data=$sth->fetchrow_hashref){
$results[$i]=$data;
$i++;
if ($data->{'constrainttype'} eq 'o') {
my $conquery = "SELECT biblioitemnumber FROM reserveconstraints
WHERE biblionumber = ?
AND borrowernumber = ?
AND reservedate = ?";
my $csth=$dbh->prepare($conquery);
my $bibn = $data->{'biblionumber'};
my $born = $data->{'borrowernumber'};
my $resd = $data->{'reservedate'};
$csth->execute($bibn, $born, $resd);
my ($bibitemno) = $csth->fetchrow_array;
$csth->finish;
my $bdata = C4::Search::bibitemdata($bibitemno);
foreach my $key (keys %$bdata) {
$data->{$key} = $bdata->{$key};
}
}
$results[$i]=$data;
$i++;
}
# print $query;
$sth->finish;