loncom/imspackages/imsprocessor.pm - diff

Return to imsprocessor.pm CVS log

Up to [LON-CAPA] / loncom / imspackages

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') {