Lines 962-975
sub _parseletter {
Link Here
|
962 |
|
962 |
|
963 |
=head2 EnqueueLetter |
963 |
=head2 EnqueueLetter |
964 |
|
964 |
|
965 |
my $success = EnqueueLetter( { letter => $letter, |
965 |
my $queued_count = EnqueueLetter({ |
966 |
borrowernumber => '12', message_transport_type => 'email' } ) |
966 |
letter => $letter, |
|
|
967 |
borrowernumber => '12', |
968 |
message_transport_type => 'email' |
969 |
}); |
967 |
|
970 |
|
968 |
places a letter in the message_queue database table, which will |
971 |
places a letter in the message_queue database table, which will |
969 |
eventually get processed (sent) by the process_message_queue.pl |
972 |
eventually get processed (sent) by the process_message_queue.pl |
970 |
cronjob when it calls SendQueuedMessages. |
973 |
cronjob when it calls SendQueuedMessages. |
971 |
|
974 |
|
972 |
return message_id on success |
975 |
return the number of queued messages |
973 |
|
976 |
|
974 |
=cut |
977 |
=cut |
975 |
|
978 |
|
Lines 1015-1020
sub EnqueueLetter {
Link Here
|
1015 |
$from_address ||= C4::Context->preference('KohaAdminEmailAddress'); |
1018 |
$from_address ||= C4::Context->preference('KohaAdminEmailAddress'); |
1016 |
} |
1019 |
} |
1017 |
|
1020 |
|
|
|
1021 |
my $queued = 0; |
1022 |
|
1018 |
my $rs = Koha::Database->new->schema->resultset('MessageQueue'); |
1023 |
my $rs = Koha::Database->new->schema->resultset('MessageQueue'); |
1019 |
if ($params->{message_transport_type} eq 'email') { |
1024 |
if ($params->{message_transport_type} eq 'email') { |
1020 |
for my $to_address ( @to_addresses ) { |
1025 |
for my $to_address ( @to_addresses ) { |
Lines 1030-1035
sub EnqueueLetter {
Link Here
|
1030 |
from_address => $from_address, |
1035 |
from_address => $from_address, |
1031 |
content_type => $params->{letter}{'content-type'}, |
1036 |
content_type => $params->{letter}{'content-type'}, |
1032 |
}); |
1037 |
}); |
|
|
1038 |
++$queued; |
1033 |
} |
1039 |
} |
1034 |
} else { |
1040 |
} else { |
1035 |
$rs->create({ |
1041 |
$rs->create({ |
Lines 1043-1050
sub EnqueueLetter {
Link Here
|
1043 |
from_address => $from_address, |
1049 |
from_address => $from_address, |
1044 |
content_type => $params->{letter}{'content-type'}, |
1050 |
content_type => $params->{letter}{'content-type'}, |
1045 |
}); |
1051 |
}); |
|
|
1052 |
++$queued; |
1046 |
} |
1053 |
} |
1047 |
return scalar( @to_addresses ); |
1054 |
|
|
|
1055 |
return $queued; |
1048 |
} |
1056 |
} |
1049 |
|
1057 |
|
1050 |
=head2 SendQueuedMessages ([$hashref]) |
1058 |
=head2 SendQueuedMessages ([$hashref]) |