@@ -, +, @@ and confirm button' to confirm the hold. 'reserve not found'. --- C4/Reserves.pm | 7 +++++-- t/db_dependent/Reserves.t | 5 ++++- 2 files changed, 9 insertions(+), 3 deletions(-) --- a/C4/Reserves.pm +++ a/C4/Reserves.pm @@ -2171,8 +2171,11 @@ sub ReserveSlip { # return unless ( C4::Context->boolean_preference('printreserveslips') ); - my $reserve = GetReserveInfo($borrowernumber,$biblionumber ) - or return; + my $reserve_id = GetReserveId({ + biblionumber => $biblionumber, + borrowernumber => $borrowernumber + }) or return; + my $reserve = GetReserveInfo($reserve_id) or return; return C4::Letters::GetPreparedLetter ( module => 'circulation', --- a/t/db_dependent/Reserves.t +++ a/t/db_dependent/Reserves.t @@ -2,7 +2,7 @@ use Modern::Perl; -use Test::More tests => 16; +use Test::More tests => 17; use MARC::Record; use DateTime::Duration; @@ -263,4 +263,7 @@ is(exists $messages->{ResFound}?1:0, 1, 'AddReturn considers future reserve with # End of tests for bug 9761 (ConfirmFutureHolds) +my $letter = ReserveSlip('CPL', $requesters{'CPL'}, $bibnum); +ok(defined($letter), 'can successfully generate hold slip (bug 10949)'); + $dbh->rollback; --