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

(-)a/C4/Letters.pm (-1 / +6 lines)
Lines 36-41 use Koha::DateUtils; Link Here
36
use Koha::SMS::Providers;
36
use Koha::SMS::Providers;
37
37
38
use Koha::Email;
38
use Koha::Email;
39
use Koha::Notice::Messages;
39
use Koha::DateUtils qw( format_sqldatetime dt_from_string );
40
use Koha::DateUtils qw( format_sqldatetime dt_from_string );
40
use Koha::Patrons;
41
use Koha::Patrons;
41
42
Lines 1057-1062 sub SendQueuedMessages { Link Here
1057
    };
1058
    };
1058
    my $unsent_messages = _get_unsent_messages( $which_unsent_messages );
1059
    my $unsent_messages = _get_unsent_messages( $which_unsent_messages );
1059
    MESSAGE: foreach my $message ( @$unsent_messages ) {
1060
    MESSAGE: foreach my $message ( @$unsent_messages ) {
1061
        my $message_object = Koha::Notice::Messages->find( $message->{message_id} );
1062
        $message_object->status('processing');
1063
        # If this fails the database is unwritable and we won't manage to send a message that continues to be marked 'pending'
1064
        return unless $message_object->store();
1065
1060
        # warn Data::Dumper->Dump( [ $message ], [ 'message' ] );
1066
        # warn Data::Dumper->Dump( [ $message ], [ 'message' ] );
1061
        warn sprintf( 'sending %s message to patron: %s',
1067
        warn sprintf( 'sending %s message to patron: %s',
1062
                      $message->{'message_transport_type'},
1068
                      $message->{'message_transport_type'},
1063
- 

Return to bug 18725