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