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