--- loncom/homework/response.pm 2007/09/25 20:18:56 1.177 +++ loncom/homework/response.pm 2007/09/27 19:05:03 1.178 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # various response type definitons response definition # -# $Id: response.pm,v 1.177 2007/09/25 20:18:56 albertel Exp $ +# $Id: response.pm,v 1.178 2007/09/27 19:05:03 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -899,6 +899,11 @@ sub getresponse { } } + + # save bubbled letter for later + $Apache::lonhomework::results{"resource.$part.$id.scantron"}.= + $response; + if ($resulttype ne 'letter') { if ($resulttype eq 'A is 1') { $response = $let_to_num{$response}+1; @@ -913,9 +918,6 @@ sub getresponse { $response = chr(ord($response) + $line * $bubbles_per_line); } } - # save submitted response for later - $Apache::lonhomework::results{"resource.$part.$id.scantron"}.= - $response; } else { $response = $env{$formparm};