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