Lines 519-525
sub cancel {
Link Here
|
519 |
# NOTE: Transfers are well bound with Holds.. as such we have to check that there is actually a |
519 |
# NOTE: Transfers are well bound with Holds.. as such we have to check that there is actually a |
520 |
# transfer enqueued and in transit here prior to trying to cancel it. |
520 |
# transfer enqueued and in transit here prior to trying to cancel it. |
521 |
if ( $transfer && $transfer->in_transit ) { |
521 |
if ( $transfer && $transfer->in_transit ) { |
522 |
$transfer->cancel({ reason => 'CancelReserve', force => 1 }); |
522 |
$transfer->cancel({ reason => 'CancelReserve', force => 1, replace => 1 }); |
523 |
} |
523 |
} |
524 |
} |
524 |
} |
525 |
$self->cancellationdate( dt_from_string->strftime( '%Y-%m-%d %H:%M:%S' ) ); |
525 |
$self->cancellationdate( dt_from_string->strftime( '%Y-%m-%d %H:%M:%S' ) ); |