@@ -, +, @@ - fix identation in one line - remove a commented-out warn --- C4/Reserves.pm | 1 - C4/SIP/ILS/Transaction/Hold.pm | 2 +- 2 files changed, 1 insertion(+), 2 deletions(-) --- a/C4/Reserves.pm +++ a/C4/Reserves.pm @@ -253,7 +253,6 @@ sub AddReserve { sub GetReserve { my ($reserve_id) = @_; - #warn "C4::Reserves::GetReserve( $reserve_id )"; my $dbh = C4::Context->dbh; my $query = "SELECT * FROM reserves WHERE reserve_id = ?"; --- a/C4/SIP/ILS/Transaction/Hold.pm +++ a/C4/SIP/ILS/Transaction/Hold.pm @@ -122,7 +122,7 @@ sub change_hold { return $self; } my $bibno = $bib->{biblionumber}; - ModReserve({ biblionumber => $bibno, borrowernumber => $borrower->{borrowernumber}, branchcode => $branch }); + ModReserve({ biblionumber => $bibno, borrowernumber => $borrower->{borrowernumber}, branchcode => $branch }); $self->ok(1); return $self; --