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

(-)a/Koha/Booking.pm (-28 / +20 lines)
Lines 246-288 sub to_api_mapping { Link Here
246
246
247
=head3 delete
247
=head3 delete
248
248
249
$booking->delete();
249
  my $deleted = $booking->delete();
250
250
251
=cut
251
=cut
252
252
253
sub delete {
253
sub delete {
254
    my ( $self ) = @_;
254
    my ($self) = @_;
255
255
256
    my $deleted = $self->SUPER::delete($self);
256
    my $patron         = $self->patron;
257
    my $patron  = Koha::Patrons->find( $self->patron_id );
257
    my $pickup_library = $self->pickup_library;
258
    my $item    = Koha::Items->find( $self->item_id );
259
    my $library = Koha::Libraries->find( $self->pickup_library_id );
260
258
261
    my $letter = C4::Letters::GetPreparedLetter(
259
    my $letter = C4::Letters::GetPreparedLetter(
262
            module                 => 'bookings',
260
        module                 => 'bookings',
263
            letter_code            => 'BOOKING_CANCELLATION',
261
        letter_code            => 'BOOKING_CANCELLATION',
264
            message_transport_type => 'email',
262
        message_transport_type => 'email',
265
            branchcode             => $patron->branchcode,
263
        branchcode             => $pickup_library->branchcode,
266
            lang                   => $patron->lang,
264
        lang                   => $patron->lang,
267
            tables                 => {
265
        objects                => { booking => $self }
268
                branches    => $library->branchcode,
266
    );
269
                borrowers   => $patron->borrowernumber,
267
270
                items       => $item->itemnumber,
268
    if ($letter) {
271
                biblio      => $item->biblionumber,
269
        C4::Letters::EnqueueLetter(
272
                biblioitems => $item->biblionumber,
270
            {
273
                bookings    => $self->unblessed,
271
                letter                 => $letter,
272
                borrowernumber         => $patron->borrowernumber,
273
                message_transport_type => 'email',
274
            }
274
            }
275
        );
275
        );
276
    }
276
277
277
        if ($letter) {
278
    my $deleted = $self->SUPER::delete($self);
278
            C4::Letters::EnqueueLetter(
279
                {
280
                    letter                 => $letter,
281
                    borrowernumber         => $patron->borrowernumber,
282
                    message_transport_type => 'email',
283
                }
284
            );
285
        }
286
    return $deleted;
279
    return $deleted;
287
}
280
}
288
281
289
- 

Return to bug 36915