loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.69, 2004/02/18 22:49:32	version 1.70, 2004/03/12 16:55:35
Line 44 sub caparesponse_check {	Line 44 sub caparesponse_check {
#not to be used: $ans_fmt	#not to be used: $ans_fmt
my ($type,$tol,$sig,$ans_fmt,$unit,$calc,$samples) =	my ($type,$tol,$sig,$ans_fmt,$unit,$calc,$samples) =
eval $_[2].	eval $_[2].
';return ($type,$tol,$sig,$ans_fmt,$unit,$calc,$samples);';	';return ($__LC__type,$__LC__tol,$__LC__sig,$__LC__ans_fmt,$__LC__unit,$__LC__calc,$__LC__samples);';

my $tol_type=''; # gets it's value from whether tol has a % or not done	my $tol_type=''; # gets it's value from whether tol has a % or not done
my $sig_lbound=''; #done	my $sig_lbound=''; #done
Line 165 sub caparesponse_check_list {	Line 165 sub caparesponse_check_list {
my $answers=join(':',@list);	my $answers=join(':',@list);
$result.="Got response :$answers:\n";	$result.="Got response :$answers:\n";
my @responselist;	my @responselist;
my $type =eval $expr.';return $type;';	my $type =eval $expr.';return $__LC__type;';
	$result.="Got type :$type:\n";
if ($type ne '' && $#list > 0) {	if ($type ne '' && $#list > 0) {
(@responselist)=split /,/,$response;	(@responselist)=split /,/,$response;
} else {	} else {