AMC-prepare.diff
AMC-prepare.pl 2018-09-17 23:32:51.958501180 +0200 | ||
---|---|---|
19 | 19 |
# <http://www.gnu.org/licenses/>. |
20 | 20 | |
21 | 21 |
use utf8; |
22 |
use Encode qw(decode encode); |
|
22 | 23 | |
23 | 24 |
use File::Copy; |
24 | 25 |
use File::Spec::Functions qw/splitpath catpath splitdir catdir catfile rel2abs tmpdir/; |
... | ... | |
1023 | 1024 | |
1024 | 1025 |
if(/AUTOQCM\[NUM=([0-9]+)=(.+)\]/) { |
1025 | 1026 |
# association question-number<->question-title |
1026 |
$scoring->question_title($1,$2);
|
|
1027 |
$scoring->question_title($1,decode('UTF-8', $2));
|
|
1027 | 1028 |
} |
1028 | 1029 | |
1029 | 1030 |
if(/AUTOQCM\[MULT\]/) { |