loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.18, 2001/02/20 23:46:25	version 1.19, 2001/05/08 14:57:12
Line 11 sub caparesponse_check {	Line 11 sub caparesponse_check {
my $type=''; #done	my $type=''; #done
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 $tol=''; #done	my $tol=''; #done
my $sig='';	my $sig=''; #done lowerbnd,upperbnd
my $sig_lbound='';	my $sig_lbound=''; #done
my $sig_ubound='';	my $sig_ubound=''; #done
my $ans_fmt='';	my $ans_fmt='';
my $units='';	my $units=''; #done
my $calc='';	my $calc='';
my ($response,$expr)=@_;	my ($response,$expr)=@_;

Line 93 sub caparesponse_check_list {	Line 93 sub caparesponse_check_list {
my $i=0;	my $i=0;
my $awards='';	my $awards='';
for ($i=0; $i<@list;$i++) {	for ($i=0; $i<@list;$i++) {
$aresult=&caparesponse_check($responselist[$i]." $unit",	if ($unit eq '') {
$expr.';my $answer='.$list[$i].';');	$aresult=&caparesponse_check($responselist[$i],
	$expr.';my $answer='.$list[$i].';');
	} else {
	$aresult=&caparesponse_check($responselist[$i]." $unit",
	$expr.';my $answer='.$list[$i].';');
	}
my ($temp)=split /:/, $aresult;	my ($temp)=split /:/, $aresult;
$awards.="$temp,";	$awards.="$temp,";
$result.=$aresult;	$result.=$aresult;