|
version 1.16, 2001/01/24 17:01:49
|
version 1.17, 2001/02/19 20:31:53
|
|
Line 71 sub caparesponse_check {
|
Line 71 sub caparesponse_check {
|
| elsif ($result =='12') { $result='WANTED_NUMERIC'; } |
elsif ($result =='12') { $result='WANTED_NUMERIC'; } |
| else {$result = "ERROR: Unknown Result:$result:$@:";} |
else {$result = "ERROR: Unknown Result:$result:$@:";} |
| |
|
| return "$result:<br>Error $error:<br>Answer $answer:<br>Response $response:<br>$type|$tol|$tol_type|$sig:$sig_lbound:$sig_ubound|$units<br>"; |
return "$result:<br />Error $error:<br />Answer $answer:<br />Response $response:<br />$type|$tol|$tol_type|$sig:$sig_lbound:$sig_ubound|$units<br />"; |
| } |
} |
| |
|
| sub caparesponse_check_list { |
sub caparesponse_check_list { |
|
Line 83 sub caparesponse_check_list {
|
Line 83 sub caparesponse_check_list {
|
| my (@list) = eval $answer; |
my (@list) = eval $answer; |
| my (@responselist)=split /,/,$response; |
my (@responselist)=split /,/,$response; |
| my $unit=''; |
my $unit=''; |
| $result.="Final response :$responselist['-1']:<br>"; |
$result.="Final response :$responselist['-1']:<br />"; |
| if ( $responselist['-1']=~ /(.*[^\s])\s+([^\s]+)/ ) { |
if ( $responselist['-1']=~ /(.*[^\s])\s+([^\s]+)/ ) { |
| $responselist['-1']=$1; |
$responselist['-1']=$1; |
| $unit=$2; |
$unit=$2; |
| } |
} |
| $result.="Final response :$responselist['-1']:<br>"; |
$result.="Final response :$responselist['-1']:<br />"; |
| $unit=~s/\s//; |
$unit=~s/\s//; |
| my $i=0; |
my $i=0; |
| my $awards=''; |
my $awards=''; |
|
Line 100 sub caparesponse_check_list {
|
Line 100 sub caparesponse_check_list {
|
| $result.=$aresult; |
$result.=$aresult; |
| } |
} |
| chop $awards; |
chop $awards; |
| return "$awards:<br>$result"; |
return "$awards:<br />$result"; |
| } |
} |
| |
|
| sub tex { |
sub tex { |
![[BACK]](/icons/back.gif){kind=icon}
Return to default_homework.lcpm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework