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

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

Return to bug 12426