|
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 |
|