Lines 2339-2345
sub GetReserveId {
Link Here
|
2339 |
|
2339 |
|
2340 |
=head2 ReserveSlip |
2340 |
=head2 ReserveSlip |
2341 |
|
2341 |
|
2342 |
ReserveSlip($branchcode, $borrowernumber, $biblionumber) |
2342 |
ReserveSlip($branchcode, $borrowernumber, $biblionumber [, $itemnumber, $barcode ]) |
2343 |
|
2343 |
|
2344 |
Returns letter hash ( see C4::Letters::GetPreparedLetter ) or undef |
2344 |
Returns letter hash ( see C4::Letters::GetPreparedLetter ) or undef |
2345 |
|
2345 |
|
Lines 2356-2368
available within the slip:
Link Here
|
2356 |
=cut |
2356 |
=cut |
2357 |
|
2357 |
|
2358 |
sub ReserveSlip { |
2358 |
sub ReserveSlip { |
2359 |
my ($branch, $borrowernumber, $biblionumber) = @_; |
2359 |
my ($branch, $borrowernumber, $biblionumber, $itemnumber, $barcode) = @_; |
2360 |
|
2360 |
|
2361 |
# return unless ( C4::Context->boolean_preference('printreserveslips') ); |
2361 |
# return unless ( C4::Context->boolean_preference('printreserveslips') ); |
|
|
2362 |
my $item = C4::Items::GetItem($itemnumber, $barcode); |
2362 |
|
2363 |
|
2363 |
my $reserve_id = GetReserveId({ |
2364 |
my $reserve_id = GetReserveId({ |
2364 |
biblionumber => $biblionumber, |
2365 |
biblionumber => $biblionumber, |
2365 |
borrowernumber => $borrowernumber |
2366 |
borrowernumber => $borrowernumber, |
|
|
2367 |
itemnumber => $item->{itemnumber} |
2366 |
}) or return; |
2368 |
}) or return; |
2367 |
my $reserve = GetReserveInfo($reserve_id) or return; |
2369 |
my $reserve = GetReserveInfo($reserve_id) or return; |
2368 |
|
2370 |
|