|
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 |
- |
|
|