View | Details | Raw Unified | Return to bug 29869
Collapse All | Expand All

(-)a/C4/Reserves.pm (-30 / +1 lines)
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
- 

Return to bug 29869