version 1.21, 2005/05/28 01:32:32
|
version 1.22, 2005/07/12 16:05:59
|
Line 2893 sub write_webct4_questions {
|
Line 2893 sub write_webct4_questions {
|
$resourcedata{$symb.'randomize'} = 'yes'; |
$resourcedata{$symb.'randomize'} = 'yes'; |
$resourcedata{$symb.'maxfoils'} = 10; |
$resourcedata{$symb.'maxfoils'} = 10; |
if ($context eq 'CSTR') { |
if ($context eq 'CSTR') { |
$output = qq|<problem> |
unless ($$settings{$id}{class} eq 'numerical') { |
|
$output = qq|<problem> |
|; |
|; |
|
} |
} |
} |
$$total{prob} ++; |
$$total{prob} ++; |
if (exists($$settings{$id}{uri})) { |
if (exists($$settings{$id}{uri})) { |
Line 3279 sub write_webct4_questions {
|
Line 3281 sub write_webct4_questions {
|
</script> |
</script> |
|; |
|; |
if ($context eq 'CSTR') { |
if ($context eq 'CSTR') { |
$output = $scriptblock.$output; |
$output = "<problem>\n".$scriptblock.$output; |
my $ansformat = ''; |
my $ansformat = ''; |
my $sigfig = '0,15'; |
my $sigfig = '0,15'; |
if ($$settings{$id}{$numid}{format} eq 'sig') { |
if ($$settings{$id}{$numid}{format} eq 'sig') { |