Lines 1111-1117
sub GetMessage {
Link Here
|
1111 |
Updates the message to 'pending' status so that |
1111 |
Updates the message to 'pending' status so that |
1112 |
it will be resent later on. |
1112 |
it will be resent later on. |
1113 |
|
1113 |
|
1114 |
returns 1 on success, 0 on failure |
1114 |
returns 1 on success, 0 on failure, undef if no message was found |
1115 |
|
1115 |
|
1116 |
=cut |
1116 |
=cut |
1117 |
|
1117 |
|
Lines 1121-1133
sub ResendMessage {
Link Here
|
1121 |
|
1121 |
|
1122 |
my $message = GetMessage( $message_id ); |
1122 |
my $message = GetMessage( $message_id ); |
1123 |
return unless $message; |
1123 |
return unless $message; |
|
|
1124 |
my $rv = 0; |
1124 |
if ( $message->{status} ne 'pending' ) { |
1125 |
if ( $message->{status} ne 'pending' ) { |
1125 |
return ((C4::Letters::_set_message_status( { |
1126 |
$rv = C4::Letters::_set_message_status({ |
1126 |
message_id => $message_id, |
1127 |
message_id => $message_id, |
1127 |
status => 'pending', |
1128 |
status => 'pending', |
1128 |
} ) > 0) ? 1:0); |
1129 |
}); |
|
|
1130 |
$rv = $rv > 0? 1: 0; |
1131 |
# Clear destination email address to force address update |
1132 |
_update_message_to_address( $message_id, undef ) if $rv && |
1133 |
$message->{message_transport_type} eq 'email'; |
1129 |
} |
1134 |
} |
1130 |
return 0; |
1135 |
return $rv; |
1131 |
} |
1136 |
} |
1132 |
|
1137 |
|
1133 |
=head2 _add_attachements |
1138 |
=head2 _add_attachements |
1134 |
- |
|
|