commented out a warn or two...
This commit is contained in:
parent
51e0e140c2
commit
55798ef08a
|
|
@ -95,7 +95,7 @@ sub CheckReserves {
|
|||
sub CancelReserve {
|
||||
my ($biblio, $item, $borr) = @_;
|
||||
my $dbh=C4Connect;
|
||||
warn "In CancelReserve";
|
||||
#warn "In CancelReserve";
|
||||
if (($item and $borr) and (not $biblio)) {
|
||||
# removing a waiting reserve record....
|
||||
$item = $dbh->quote($item);
|
||||
|
|
@ -177,7 +177,7 @@ sub fixpriority {
|
|||
WHERE biblionumber = $nbib
|
||||
AND borrowernumber = $nbor
|
||||
AND reservedate = $nresd";
|
||||
warn $query;
|
||||
#warn $query;
|
||||
my $sth = $dbh->prepare($query);
|
||||
$sth->execute;
|
||||
$sth->finish;
|
||||
|
|
|
|||
Loading…
Reference in New Issue