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

DBI fixes as part of bug 662

This commit is contained in:
slef 2003-12-03 11:43:12 +00:00
parent 6ef083647e
commit 76dc65f2ca
1 changed files with 8 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
C4/Circulation.pm
View File

@ -168,33 +168,29 @@ sub checkreserve{
# does not look at constraints yet
my ($env,$dbh,$itemnum)=@_;
my $resbor = "";
my $query = "select * from reserves,items
where (items.itemnumber = '$itemnum')
my $sth = $dbh->prepare("select * from reserves,items
where (items.itemnumber = ?)
and (items.biblionumber = reserves.biblionumber)
and (reserves.found is null) order by priority";
my $sth = $dbh->prepare($query);
$sth->execute();
and (reserves.found is null) order by priority");
$sth->execute($itemnum);
if (my $data=$sth->fetchrow_hashref) {
$resbor = $data->{'borrowernumber'};
}
return ($resbor);
$sth->finish;
return ($resbor);
}
sub checkwaiting{
# check for reserves waiting
my ($env,$dbh,$bornum)=@_;
my @itemswaiting="";
my $query = "select * from reserves
where (borrowernumber = '$bornum')
and (reserves.found='W')";
my $sth = $dbh->prepare($query);
$sth->execute();
my $sth = $dbh->prepare("select * from reserves where (borrowernumber = ?) and (reserves.found='W')");
$sth->execute($bornum);
if (my $data=$sth->fetchrow_hashref) {
push @itemswaiting,$data->{'itemnumber'};
}
return (\@itemswaiting);
$sth->finish;
return (\@itemswaiting);
}
# FIXME - This is identical to &C4::Circulation/Main::scanbook