Lines 977-983
sub SendQueuedMessages {
Link Here
|
977 |
'limit' => $params->{'limit'} // 0, |
977 |
'limit' => $params->{'limit'} // 0, |
978 |
'borrowernumber' => $params->{'borrowernumber'} // q{}, |
978 |
'borrowernumber' => $params->{'borrowernumber'} // q{}, |
979 |
'letter_code' => $params->{'letter_code'} // q{}, |
979 |
'letter_code' => $params->{'letter_code'} // q{}, |
980 |
'type' => $params->{'type'} // q{}, |
980 |
'message_transport_type' => $params->{'type'} // q{}, |
981 |
}; |
981 |
}; |
982 |
my $unsent_messages = _get_unsent_messages( $which_unsent_messages ); |
982 |
my $unsent_messages = _get_unsent_messages( $which_unsent_messages ); |
983 |
MESSAGE: foreach my $message ( @$unsent_messages ) { |
983 |
MESSAGE: foreach my $message ( @$unsent_messages ) { |
Lines 1257-1266
sub _get_unsent_messages {
Link Here
|
1257 |
|
1257 |
|
1258 |
my @query_params = ('pending'); |
1258 |
my @query_params = ('pending'); |
1259 |
if ( ref $params ) { |
1259 |
if ( ref $params ) { |
1260 |
if ( $params->{'message_transport_type'} ) { |
|
|
1261 |
$statement .= ' AND mq.message_transport_type = ? '; |
1262 |
push @query_params, $params->{'message_transport_type'}; |
1263 |
} |
1264 |
if ( $params->{'borrowernumber'} ) { |
1260 |
if ( $params->{'borrowernumber'} ) { |
1265 |
$statement .= ' AND mq.borrowernumber = ? '; |
1261 |
$statement .= ' AND mq.borrowernumber = ? '; |
1266 |
push @query_params, $params->{'borrowernumber'}; |
1262 |
push @query_params, $params->{'borrowernumber'}; |
Lines 1273-1280
sub _get_unsent_messages {
Link Here
|
1273 |
push @query_params, @letter_codes; |
1269 |
push @query_params, @letter_codes; |
1274 |
} |
1270 |
} |
1275 |
} |
1271 |
} |
1276 |
if ( $params->{'type'} ) { |
1272 |
if ( $params->{'message_transport_type'} ) { |
1277 |
my @types = ref $params->{'type'} eq "ARRAY" ? @{$params->{'type'}} : $params->{'type'}; |
1273 |
my @types = ref $params->{'message_transport_type'} eq "ARRAY" ? @{$params->{'message_transport_type'}} : $params->{'message_transport_type'}; |
1278 |
if ( @types ) { |
1274 |
if ( @types ) { |
1279 |
my $q = join( ",", ("?") x @types ); |
1275 |
my $q = join( ",", ("?") x @types ); |
1280 |
$statement .= " AND message_transport_type IN ( $q ) "; |
1276 |
$statement .= " AND message_transport_type IN ( $q ) "; |
1281 |
- |
|
|