|
Lines 497-504
Cancel a hold:
Link Here
|
| 497 |
|
497 |
|
| 498 |
sub cancel { |
498 |
sub cancel { |
| 499 |
my ( $self, $params ) = @_; |
499 |
my ( $self, $params ) = @_; |
|
|
500 |
|
| 500 |
$self->_result->result_source->schema->txn_do( |
501 |
$self->_result->result_source->schema->txn_do( |
| 501 |
sub { |
502 |
sub { |
|
|
503 |
if ( $self->is_in_transit ) { |
| 504 |
my $transfer = $self->item->get_transfer; |
| 505 |
if ( $transfer->in_transit ) { |
| 506 |
$transfer->cancel({ reason => 'CancelReserve', force => 1 }); |
| 507 |
} |
| 508 |
} |
| 502 |
$self->cancellationdate( dt_from_string->strftime( '%Y-%m-%d %H:%M:%S' ) ); |
509 |
$self->cancellationdate( dt_from_string->strftime( '%Y-%m-%d %H:%M:%S' ) ); |
| 503 |
$self->priority(0); |
510 |
$self->priority(0); |
| 504 |
$self->cancellation_reason( $params->{cancellation_reason} ); |
511 |
$self->cancellation_reason( $params->{cancellation_reason} ); |
| 505 |
- |
|
|