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

(-)a/Koha/Hold.pm (-1 / +7 lines)
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
- 

Return to bug 12362