version 1.244.2.4, 2024/07/02 00:40:42
|
version 1.244.2.5, 2024/10/29 03:29:30
|
Line 880 sub answer_part {
|
Line 880 sub answer_part {
|
if ($env{'form.answer_output_mode'} eq 'tex') { |
if ($env{'form.answer_output_mode'} eq 'tex') { |
if (!$args->{'no_verbatim'}) { |
if (!$args->{'no_verbatim'}) { |
my $to_use='|'; |
my $to_use='|'; |
foreach my $value (32..126) { |
foreach my $value (33..41,43..126) { |
my $char=pack('c',$value); |
my $char=pack('c',$value); |
if ($answer !~ /\Q$char\E/) { |
if ($answer !~ /\Q$char\E/) { |
$to_use=$char; |
$to_use=$char; |