This commit is contained in:
chris 2000-05-23 00:36:30 +00:00
parent 11ca656a45
commit 38f841784b

View file

@ -280,7 +280,8 @@ sub find_reserves {
my ($env,$dbh,$itemno) = @_;
my $itemdata = itemnodata($env,$dbh,$itemno);
my $query = "select * from reserves where found is null
and biblionumber = $itemdata->{'biblionumber'} order by priority,reservedate ";
and biblionumber = $itemdata->{'biblionumber'} and cancellationdate is NULL
order by priority,reservedate ";
my $sth = $dbh->prepare($query);
$sth->execute;
my $resfound = "n";