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

(-)a/Koha/Booking.pm (-19 / +19 lines)
Lines 256-286 sub delete { Link Here
256
    my $patron         = $self->patron;
256
    my $patron         = $self->patron;
257
    my $pickup_library = $self->pickup_library;
257
    my $pickup_library = $self->pickup_library;
258
258
259
    if ( not  defined( $params->{'transform_to_checkout'} ) ) {
259
    if ( not defined( $params->{'transform_to_checkout'} ) ) {
260
    my $letter = C4::Letters::GetPreparedLetter(
260
        my $letter = C4::Letters::GetPreparedLetter(
261
        module                 => 'bookings',
261
            module                 => 'bookings',
262
        letter_code            => 'BOOKING_CANCELLATION',
262
            letter_code            => 'BOOKING_CANCELLATION',
263
        message_transport_type => 'email',
263
            message_transport_type => 'email',
264
        branchcode             => $pickup_library->branchcode,
264
            branchcode             => $pickup_library->branchcode,
265
        lang                   => $patron->lang,
265
            lang                   => $patron->lang,
266
        objects                => { booking => $self }
266
            objects                => { booking => $self, branch => $pickup_library }
267
    );
268
269
    if ($letter) {
270
        C4::Letters::EnqueueLetter(
271
            {
272
                letter                 => $letter,
273
                borrowernumber         => $patron->borrowernumber,
274
                message_transport_type => 'email',
275
            }
276
        );
267
        );
268
269
        if ($letter) {
270
            C4::Letters::EnqueueLetter(
271
                {
272
                    letter                 => $letter,
273
                    borrowernumber         => $patron->borrowernumber,
274
                    message_transport_type => 'email',
275
                }
276
            );
277
        }
277
    }
278
    }
278
279
279
    my $deleted = $self->SUPER::delete($self);
280
    my $deleted = $self->SUPER::delete($self);
280
    return $deleted;
281
    return $deleted;
281
    }
282
}
282
}
283
283
284
284
=head2 Internal methods
285
=head2 Internal methods
285
286
286
=head3 _type
287
=head3 _type
287
- 

Return to bug 36789