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