Skip to content

Commit ea523cc

Browse files
committed
Simplify email conditional
1 parent f388182 commit ea523cc

3 files changed

Lines changed: 12 additions & 20 deletions

File tree

lib/Mojolicious/WeBWorK/Tasks/SendInstructorEmail.pm

Lines changed: 5 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -79,17 +79,13 @@ sub mail_message_to_recipients ($job, $ce, $db, $mail_data) {
7979
$mail_data->{merge_data}
8080
);
8181

82-
my $email;
82+
my $email = Email::Stuffer->to($user_record->email_address)->subject($mail_data->{subject})->text_body($msg)
83+
->header('X-Remote-Host' => $mail_data->{remote_host});
8384
if ($ce->{instructor_sender_email}) {
84-
$email =
85-
Email::Stuffer->to($user_record->email_address)
86-
->from($mail_data->{from_name} . ' <' . $ce->{instructor_sender_email} . '>')
87-
->reply_to($mail_data->{from})->subject($mail_data->{subject})->text_body($msg)
88-
->header('X-Remote-Host' => $mail_data->{remote_host});
85+
$email->from($mail_data->{from_name} . ' <' . $ce->{instructor_sender_email} . '>')
86+
->reply_to($mail_data->{from});
8987
} else {
90-
$email =
91-
Email::Stuffer->to($user_record->email_address)->from($mail_data->{from})
92-
->subject($mail_data->{subject})->text_body($msg)->header('X-Remote-Host' => $mail_data->{remote_host});
88+
$email->from($mail_data->{from});
9389
}
9490

9591
eval {

lib/WeBWorK/ContentGenerator/Feedback.pm

Lines changed: 4 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -186,15 +186,12 @@ $emailableURL
186186
}
187187

188188
my $from_name = $user ? $user->full_name : $ce->{generic_sender_name};
189-
my $email;
189+
my $email = Email::Stuffer->to(join(',', @recipients))->subject($subject)->text_body($msg)
190+
->header('X-Remote-Host' => $remote_host);
190191
if ($ce->{feedback_sender_email}) {
191-
$email =
192-
Email::Stuffer->to(join(',', @recipients))->from("$from_name <$ce->{feedback_sender_email}>")
193-
->reply_to($sender)->subject($subject)->text_body($msg)->header('X-Remote-Host' => $remote_host);
192+
$email->from("$from_name <$ce->{feedback_sender_email}>")->reply_to($sender);
194193
} else {
195-
$email =
196-
Email::Stuffer->to(join(',', @recipients))->from($sender)->subject($subject)->text_body($msg)
197-
->header('X-Remote-Host' => $remote_host);
194+
$email->from($sender);
198195
}
199196
# Extra headers
200197
$email->header('X-WeBWorK-Route', $route) if defined $route;

lib/WeBWorK/Utils/ProblemProcessing.pm

Lines changed: 3 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -464,12 +464,11 @@ Recitation: $recitation
464464
Comment: $comment
465465
/;
466466

467-
my $email;
467+
my $email = Email::Stuffer->to(join(',', @recipients))->subject($subject)->text_body($msg);
468468
if ($ce->{jitar_sender_email}) {
469-
$email = Email::Stuffer->to(join(',', @recipients))->from("$full_name <$ce->{jitar_sender_email}>")
470-
->reply_to($sender)->subject($subject)->text_body($msg);
469+
$email->from("$full_name <$ce->{jitar_sender_email}>")->reply_to($sender);
471470
} else {
472-
$email = Email::Stuffer->to(join(',', @recipients))->from($sender)->subject($subject)->text_body($msg);
471+
$email->from($sender);
473472
}
474473

475474
# Extra headers

0 commit comments

Comments
 (0)