version 1.105, 2005/11/16 23:17:39
|
version 1.106, 2005/12/20 20:00:42
|
Line 210 sub caparesponse_check_list {
|
Line 210 sub caparesponse_check_list {
|
$result.="Final final response :$responselist['-1']:$unit:\n"; |
$result.="Final final response :$responselist['-1']:$unit:\n"; |
$unit=~s/\s//; |
$unit=~s/\s//; |
|
|
my ($awards, @msgs); |
my ($awards, @msgs, $i); |
foreach my $thisanswer (@LONCAPA::CAPAresponse_answer) { |
foreach my $thisanswer (@LONCAPA::CAPAresponse_answer) { |
my ($msg,$aresult); |
my ($msg,$aresult); |
$result.="trying answer :$thisanswer:\n"; |
$result.="trying answer :$thisanswer:\n"; |
Line 231 sub caparesponse_check_list {
|
Line 231 sub caparesponse_check_list {
|
$awards.="$temp,"; |
$awards.="$temp,"; |
$result.=$aresult; |
$result.=$aresult; |
push(@msgs,$msg); |
push(@msgs,$msg); |
|
$i++; |
} |
} |
chop($awards); |
chop($awards); |
return ("$awards:\n$result",@msgs); |
return ("$awards:\n$result",@msgs); |