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