consolidate code

Co-authored-by: Jaimos Skriletz <jaimosskriletz@gmail.com>

Author: Alex-Jordan

lib/WeBWorK/Utils.pm

@@ -400,10 +400,8 @@ sub formatEmailSubject ($formatString, $courseID, $userID, $setID, $problemID, $
 	if (@braces) {
 		# for each brace pair, do substitutions, but leave %c etc when variable is empty
 		my %braces = map { $_ => $_ =~ s/%([$chars])/$subject_map{$1} ne '' ? $subject_map{$1} : "%$1"/egr } @braces;
-		# if there is an instance of %c, etc, nullify the whole thing
-		%braces = map { $_ => $braces{$_} =~ /%[$chars]/ ? '' : $braces{$_} } keys %braces;
-		# remove outer braces
-		%braces = map { $_ => $braces{$_} =~ s/\{(.*)\}/$1/egr } keys %braces;
+		# If there is an instance of %c, etc, nullify the whole thing. Remove outer braces.
+		%braces = map { $_ => $braces{$_} =~ /%[$chars]/ ? '' : substr($braces{$_}, 1, -1) } keys %braces;
 		my $regex = join('|', keys %braces);
 		$regex = qr/$regex/;
 		$subject =~ s/($regex)/$braces{$1}/g;