Lines 602-608
sub GetOtherReserves {
Link Here
|
602 |
ModReserveStatus($itemnumber,'W'); |
602 |
ModReserveStatus($itemnumber,'W'); |
603 |
} |
603 |
} |
604 |
|
604 |
|
605 |
$nextreservinfo = $checkreserves->{'borrowernumber'}; |
605 |
$nextreservinfo = $checkreserves; |
606 |
} |
606 |
} |
607 |
|
607 |
|
608 |
return ( $messages, $nextreservinfo ); |
608 |
return ( $messages, $nextreservinfo ); |
Lines 1171-1177
sub ModReserveCancelAll {
Link Here
|
1171 |
#step 2 launch the subroutine of the others reserves |
1171 |
#step 2 launch the subroutine of the others reserves |
1172 |
( $messages, $nextreservinfo ) = GetOtherReserves($itemnumber); |
1172 |
( $messages, $nextreservinfo ) = GetOtherReserves($itemnumber); |
1173 |
|
1173 |
|
1174 |
return ( $messages, $nextreservinfo ); |
1174 |
return ( $messages, $nextreservinfo->{borrowernumber} ); |
1175 |
} |
1175 |
} |
1176 |
|
1176 |
|
1177 |
=head2 ModReserveMinusPriority |
1177 |
=head2 ModReserveMinusPriority |
Lines 2036-2071
available within the slip:
Link Here
|
2036 |
sub ReserveSlip { |
2036 |
sub ReserveSlip { |
2037 |
my ($args) = @_; |
2037 |
my ($args) = @_; |
2038 |
my $branchcode = $args->{branchcode}; |
2038 |
my $branchcode = $args->{branchcode}; |
2039 |
my $borrowernumber = $args->{borrowernumber}; |
2039 |
my $reserve_id = $args->{reserve_id}; |
2040 |
my $biblionumber = $args->{biblionumber}; |
|
|
2041 |
my $itemnumber = $args->{itemnumber}; |
2042 |
my $barcode = $args->{barcode}; |
2043 |
|
2044 |
|
2045 |
my $patron = Koha::Patrons->find($borrowernumber); |
2046 |
|
2047 |
my $hold; |
2048 |
if ($itemnumber || $barcode ) { |
2049 |
$itemnumber ||= Koha::Items->find( { barcode => $barcode } )->itemnumber; |
2050 |
|
2051 |
$hold = Koha::Holds->search( |
2052 |
{ |
2053 |
biblionumber => $biblionumber, |
2054 |
borrowernumber => $borrowernumber, |
2055 |
itemnumber => $itemnumber |
2056 |
} |
2057 |
)->next; |
2058 |
} |
2059 |
else { |
2060 |
$hold = Koha::Holds->search( |
2061 |
{ |
2062 |
biblionumber => $biblionumber, |
2063 |
borrowernumber => $borrowernumber |
2064 |
} |
2065 |
)->next; |
2066 |
} |
2067 |
|
2040 |
|
|
|
2041 |
my $hold = Koha::Holds->find($reserve_id); |
2068 |
return unless $hold; |
2042 |
return unless $hold; |
|
|
2043 |
|
2044 |
my $patron = $hold->borrower; |
2069 |
my $reserve = $hold->unblessed; |
2045 |
my $reserve = $hold->unblessed; |
2070 |
|
2046 |
|
2071 |
return C4::Letters::GetPreparedLetter ( |
2047 |
return C4::Letters::GetPreparedLetter ( |