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