|
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 1191-1197
sub ModReserveCancelAll {
Link Here
|
| 1191 |
#step 2 launch the subroutine of the others reserves |
1191 |
#step 2 launch the subroutine of the others reserves |
| 1192 |
( $messages, $nextreservinfo ) = GetOtherReserves($itemnumber); |
1192 |
( $messages, $nextreservinfo ) = GetOtherReserves($itemnumber); |
| 1193 |
|
1193 |
|
| 1194 |
return ( $messages, $nextreservinfo ); |
1194 |
return ( $messages, $nextreservinfo->{borrowernumber} ); |
| 1195 |
} |
1195 |
} |
| 1196 |
|
1196 |
|
| 1197 |
=head2 ModReserveMinusPriority |
1197 |
=head2 ModReserveMinusPriority |
|
Lines 2055-2090
available within the slip:
Link Here
|
| 2055 |
sub ReserveSlip { |
2055 |
sub ReserveSlip { |
| 2056 |
my ($args) = @_; |
2056 |
my ($args) = @_; |
| 2057 |
my $branchcode = $args->{branchcode}; |
2057 |
my $branchcode = $args->{branchcode}; |
| 2058 |
my $borrowernumber = $args->{borrowernumber}; |
2058 |
my $reserve_id = $args->{reserve_id}; |
| 2059 |
my $biblionumber = $args->{biblionumber}; |
|
|
| 2060 |
my $itemnumber = $args->{itemnumber}; |
| 2061 |
my $barcode = $args->{barcode}; |
| 2062 |
|
| 2063 |
|
| 2064 |
my $patron = Koha::Patrons->find($borrowernumber); |
| 2065 |
|
| 2066 |
my $hold; |
| 2067 |
if ($itemnumber || $barcode ) { |
| 2068 |
$itemnumber ||= Koha::Items->find( { barcode => $barcode } )->itemnumber; |
| 2069 |
|
| 2070 |
$hold = Koha::Holds->search( |
| 2071 |
{ |
| 2072 |
biblionumber => $biblionumber, |
| 2073 |
borrowernumber => $borrowernumber, |
| 2074 |
itemnumber => $itemnumber |
| 2075 |
} |
| 2076 |
)->next; |
| 2077 |
} |
| 2078 |
else { |
| 2079 |
$hold = Koha::Holds->search( |
| 2080 |
{ |
| 2081 |
biblionumber => $biblionumber, |
| 2082 |
borrowernumber => $borrowernumber |
| 2083 |
} |
| 2084 |
)->next; |
| 2085 |
} |
| 2086 |
|
2059 |
|
|
|
2060 |
my $hold = Koha::Holds->find($reserve_id); |
| 2087 |
return unless $hold; |
2061 |
return unless $hold; |
|
|
2062 |
|
| 2063 |
my $patron = $hold->borrower; |
| 2088 |
my $reserve = $hold->unblessed; |
2064 |
my $reserve = $hold->unblessed; |
| 2089 |
|
2065 |
|
| 2090 |
return C4::Letters::GetPreparedLetter ( |
2066 |
return C4::Letters::GetPreparedLetter ( |