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