From 453a4ba45c5f433c0965726c89a19a82d0ee7750 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Tue, 9 Jul 2013 14:58:21 +0000 Subject: [PATCH] Bug 9394: (follow-up) stylistic tidying - fix identation in one line - remove a commented-out warn Signed-off-by: Galen Charlton --- C4/Reserves.pm | 1 - C4/SIP/ILS/Transaction/Hold.pm | 2 +- 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/C4/Reserves.pm b/C4/Reserves.pm index 7f95a26..1f89127 100644 --- a/C4/Reserves.pm +++ b/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 = ?"; diff --git a/C4/SIP/ILS/Transaction/Hold.pm b/C4/SIP/ILS/Transaction/Hold.pm index 0ff842fb..7e05389 100644 --- a/C4/SIP/ILS/Transaction/Hold.pm +++ b/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; -- 1.7.10.4