UTF8 safe base64 encoding

drdrew42 · drdrew42 · commit 0825ff6a280f · 2021-09-19T17:35:55.000-07:00
diff --git a/lib/WeBWorK/ContentGenerator.pm b/lib/WeBWorK/ContentGenerator.pm
@@ -1711,7 +1711,7 @@ sub feedbackMacro_form {
 	    if ($key eq 'pg_object') {
 	        my $tmp = $value->{body_text};
 	        $tmp .= CGI::p(CGI::b("Note: "). CGI::i($value->{result}->{msg})) if $value->{result}->{msg} ;
-	        $result .= CGI::hidden($key, encode_base64($tmp, "") );
+	        $result .= CGI::hidden($key, encode_base64(Encode::encode('UTF-8', $tmp), "") );
 	    } else {
 			$result .= CGI::hidden($key, $value) . "\n";
 		}

Original file line number	Diff line number	Diff line change
`@@ -1711,7 +1711,7 @@ sub feedbackMacro_form {`
`1711`	`1711`	`if ($key eq 'pg_object') {`
`1712`	`1712`	`my $tmp = $value->{body_text};`
`1713`	`1713`	`$tmp .= CGI::p(CGI::b("Note: "). CGI::i($value->{result}->{msg})) if $value->{result}->{msg} ;`
`1714`		`- $result .= CGI::hidden($key, encode_base64($tmp, "") );`
	`1714`	`+ $result .= CGI::hidden($key, encode_base64(Encode::encode('UTF-8', $tmp), "") );`
`1715`	`1715`	`} else {`
`1716`	`1716`	`$result .= CGI::hidden($key, $value) . "\n";`
`1717`	`1717`	`}`