version 1.484.2.83, 2019/08/16 18:27:50
|
version 1.484.2.84, 2019/08/17 12:45:34
|
Line 2122 sub copy_templated_files {
|
Line 2122 sub copy_templated_files {
|
if (grep(/^\Q$qtype\E$/,@simpleprobqtypes)) { |
if (grep(/^\Q$qtype\E$/,@simpleprobqtypes)) { |
my %newdata = ( |
my %newdata = ( |
$newprefix.'questiontype' => $qtype, |
$newprefix.'questiontype' => $qtype, |
) |
); |
foreach my $type (@simpleprobqtypes) { |
foreach my $type (@simpleprobqtypes) { |
if ($type eq $qtype) { |
if ($type eq $qtype) { |
$newdata{"$weightprefix.$type.weight"}=1; |
$newdata{"$weightprefix.$type.weight"}=1; |