View | Details | Raw Unified | Return to bug 10949
Collapse All | Expand All

(-)a/C4/Reserves.pm (-2 / +5 lines)
Lines 2171-2178 sub ReserveSlip { Link Here
2171
2171
2172
#   return unless ( C4::Context->boolean_preference('printreserveslips') );
2172
#   return unless ( C4::Context->boolean_preference('printreserveslips') );
2173
2173
2174
    my $reserve = GetReserveInfo($borrowernumber,$biblionumber )
2174
    my $reserve_id = GetReserveId({
2175
      or return;
2175
        biblionumber => $biblionumber,
2176
        borrowernumber => $borrowernumber
2177
    }) or return;
2178
    my $reserve = GetReserveInfo($reserve_id) or return;
2176
2179
2177
    return  C4::Letters::GetPreparedLetter (
2180
    return  C4::Letters::GetPreparedLetter (
2178
        module => 'circulation',
2181
        module => 'circulation',
(-)a/t/db_dependent/Reserves.t (-2 / +4 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 16;
5
use Test::More tests => 17;
6
use MARC::Record;
6
use MARC::Record;
7
use DateTime::Duration;
7
use DateTime::Duration;
8
8
Lines 263-266 is(exists $messages->{ResFound}?1:0, 1, 'AddReturn considers future reserve with Link Here
263
263
264
# End of tests for bug 9761 (ConfirmFutureHolds)
264
# End of tests for bug 9761 (ConfirmFutureHolds)
265
265
266
my $letter = ReserveSlip('CPL', $requesters{'CPL'}, $bibnum);
267
ok(defined($letter), 'can successfully generate hold slip (bug 10949)');
268
266
$dbh->rollback;
269
$dbh->rollback;
267
- 

Return to bug 10949