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

(-)a/Koha/Recall.pm (-6 / +1 lines)
Lines 361-372 sub set_waiting { Link Here
361
    my $messaging_preferences = C4::Members::Messaging::GetMessagingPreferences(
361
    my $messaging_preferences = C4::Members::Messaging::GetMessagingPreferences(
362
        { borrowernumber => $self->patron_id, message_name => 'Recall_Waiting' } );
362
        { borrowernumber => $self->patron_id, message_name => 'Recall_Waiting' } );
363
    while ( my ( $transport, $letter_code ) = each %{ $messaging_preferences->{transports} } ) {
363
    while ( my ( $transport, $letter_code ) = each %{ $messaging_preferences->{transports} } ) {
364
        if ( $transport eq 'email' ) {
364
        C4::Message->enqueue( $letter, $self->patron, $transport );
365
            C4::Message->enqueue( $letter, $self->patron, 'email' );
366
        }
367
        if ( $transport eq 'sms' ) {
368
            C4::Message->enqueue( $letter, $self->patron, 'sms' );
369
        }
370
    }
365
    }
371
366
372
    return $self;
367
    return $self;
(-)a/Koha/Recalls.pm (-7 / +1 lines)
Lines 171-182 sub add_recall { Link Here
171
            { borrowernumber => $checkout->borrowernumber, message_name => 'Recall_Requested' } );
171
            { borrowernumber => $checkout->borrowernumber, message_name => 'Recall_Requested' } );
172
172
173
        while ( my ( $transport, $letter_code ) = each %{ $messaging_preferences->{transports} } ) {
173
        while ( my ( $transport, $letter_code ) = each %{ $messaging_preferences->{transports} } ) {
174
            if ( $transport eq 'email' ) {
174
            C4::Message->enqueue( $letter, $checkout->patron, $transport );
175
                C4::Message->enqueue( $letter, $checkout->patron, 'email' );
176
            }
177
            if ( $transport eq 'sms' ) {
178
                C4::Message->enqueue( $letter, $checkout->patron, 'sms' );
179
            }
180
        }
175
        }
181
176
182
        $item = Koha::Items->find( $itemnumber );
177
        $item = Koha::Items->find( $itemnumber );
183
- 

Return to bug 23781