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\]/) {
|