loncom/imspackages/imsprocessor.pm - diff

Return to imsprocessor.pm CVS log

Up to [LON-CAPA] / loncom / imspackages

version 1.22, 2005/07/12 16:05:59	version 1.23, 2005/07/13 17:42:53
Line 3256 sub write_webct4_questions {	Line 3256 sub write_webct4_questions {
\|;	\|;
foreach my $numid (@{$$settings{$id}{numids}}) {	foreach my $numid (@{$$settings{$id}{numids}}) {
my $formula = $$settings{$id}{$numid}{formula};	my $formula = $$settings{$id}{$numid}{formula};
	$formula =~ s/ln/\&log/g;
	$formula =~ s/sqrt/\&sqrt/g;
	$formula =~ s/sin/\&sin/g;
	$formula =~ s/cos/\&cos/g;
	$formula =~ s/exp/\&exp/g;
foreach my $var (keys %{$$settings{$id}{$numid}{vars}}) {	foreach my $var (keys %{$$settings{$id}{$numid}{vars}}) {
my $decnum = $$settings{$id}{$numid}{vars}{$var}{dec};	my $decnum = $$settings{$id}{$numid}{vars}{$var}{dec};
my $increment = '0.';	my $increment = '0.';
Line 3269 sub write_webct4_questions {	Line 3274 sub write_webct4_questions {
}	}
$increment .= '1';	$increment .= '1';
}	}
$formula =~ s/{($var)}/\$$1/g;	$formula =~ s/{($var)}/(\$$1)/g;
$formula =~ s/ln$?([^$])\)?/ &log($1) /g;
$formula =~ s/sqrt/\&sqrt/g;
$scriptblock .= qq\|	$scriptblock .= qq\|
\$$var=&random($$settings{$id}{$numid}{vars}{$var}{min},$$settings{$id}{$numid}{vars}{$var}{max},$increment);	\$$var=&random($$settings{$id}{$numid}{vars}{$var}{min},$$settings{$id}{$numid}{vars}{$var}{max},$increment);
\|;	\|;