Lines 1110-1144
sub ModReserveFill {
Link Here
|
1110 |
my $reserve_id = $res->{'reserve_id'}; |
1110 |
my $reserve_id = $res->{'reserve_id'}; |
1111 |
|
1111 |
|
1112 |
my $hold = Koha::Holds->find($reserve_id); |
1112 |
my $hold = Koha::Holds->find($reserve_id); |
1113 |
# get the priority on this record.... |
1113 |
$hold->fill; |
1114 |
my $priority = $hold->priority; |
|
|
1115 |
|
1116 |
# update the hold statuses, no need to store it though, we will be deleting it anyway |
1117 |
$hold->set( |
1118 |
{ |
1119 |
found => 'F', |
1120 |
priority => 0, |
1121 |
} |
1122 |
); |
1123 |
|
1124 |
logaction( 'HOLDS', 'MODIFY', $hold->reserve_id, $hold ) |
1125 |
if C4::Context->preference('HoldsLog'); |
1126 |
|
1127 |
# FIXME Must call Koha::Hold->cancel ? => No, should call ->filled and add the correct log |
1128 |
Koha::Old::Hold->new( $hold->unblessed() )->store(); |
1129 |
|
1130 |
$hold->delete(); |
1131 |
|
1132 |
if ( C4::Context->preference('HoldFeeMode') eq 'any_time_is_collected' ) { |
1133 |
my $reserve_fee = GetReserveFee( $hold->borrowernumber, $hold->biblionumber ); |
1134 |
ChargeReserveFee( $hold->borrowernumber, $reserve_fee, $hold->biblio->title ); |
1135 |
} |
1136 |
|
1137 |
# now fix the priority on the others (if the priority wasn't |
1138 |
# already sorted!).... |
1139 |
unless ( $priority == 0 ) { |
1140 |
_FixPriority( { reserve_id => $reserve_id, biblionumber => $hold->biblionumber } ); |
1141 |
} |
1142 |
} |
1114 |
} |
1143 |
|
1115 |
|
1144 |
=head2 ModReserveStatus |
1116 |
=head2 ModReserveStatus |
1145 |
- |
|
|