version 1.103, 2005/09/26 21:39:53
|
version 1.104, 2005/11/16 22:18:22
|
Line 193 sub caparesponse_check_list {
|
Line 193 sub caparesponse_check_list {
|
my $type = $LONCAPA::CAPAresponse_args{'type'}; |
my $type = $LONCAPA::CAPAresponse_args{'type'}; |
$result.="Got type :$type:\n"; |
$result.="Got type :$type:\n"; |
if ($type ne '' && $#list > 0) { |
if ($type ne '' && $#list > 0) { |
(@responselist)=split /,/,$response; |
(@responselist)=split(/,/,$response); |
} else { |
} else { |
(@responselist)=($response); |
(@responselist)=($response); |
} |
} |
Line 217 sub caparesponse_check_list {
|
Line 217 sub caparesponse_check_list {
|
$result.="trying answer :$list[$i]:\n"; |
$result.="trying answer :$list[$i]:\n"; |
my $thisanswer=$list[$i]; |
my $thisanswer=$list[$i]; |
$result.="trying answer :$thisanswer:\n"; |
$result.="trying answer :$thisanswer:\n"; |
if ($unit eq '') { |
if (defined($list[$i])) { |
($aresult,$msg)=&caparesponse_check($thisanswer,$responselist[$i]); |
if ($unit eq '') { |
|
($aresult,$msg)=&caparesponse_check($thisanswer, |
|
$responselist[$i]); |
|
} else { |
|
($aresult,$msg)=&caparesponse_check($thisanswer, |
|
$responselist[$i]." $unit"); |
|
} |
} else { |
} else { |
($aresult,$msg)=&caparesponse_check($thisanswer, |
$aresult='ERROR'; |
$responselist[$i]." $unit"); |
|
} |
} |
my ($temp)=split /:/, $aresult; |
my ($temp)=split(/:/, $aresult); |
$awards.="$temp,"; |
$awards.="$temp,"; |
$result.=$aresult; |
$result.=$aresult; |
push(@msgs,$msg); |
push(@msgs,$msg); |
} |
} |
chop $awards; |
chop($awards); |
return ("$awards:\n$result",@msgs); |
return ("$awards:\n$result",@msgs); |
} |
} |
|
|