View | Details | Raw Unified | Return to bug 12426
Collapse All | Expand All

(-)a/C4/Letters.pm (-7 / +11 lines)
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
- 

Return to bug 12426