--- loncom/homework/response.pm 2008/12/23 18:09:36 1.210 +++ loncom/homework/response.pm 2009/03/06 16:13:29 1.211 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # various response type definitons response definition # -# $Id: response.pm,v 1.210 2008/12/23 18:09:36 raeburn Exp $ +# $Id: response.pm,v 1.211 2009/03/06 16:13:29 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -948,13 +948,17 @@ sub getresponse { my $id = $Apache::inputtags::response[-1]; my $line; + my $startline = $env{'form.scantron_questnum_start.'.$part.'.'.$id}; + if (!$startline) { + $startline = $Apache::lonxml::counter; + } for ($line = 0; $line < $lines; $line++) { - my $theline = $Apache::lonxml::counter+$offset-1+$line; + my $theline = $startline+$offset-1+$line; $response = $env{"scantron.$theline.answer"}; if ((defined($response)) && ($response ne "") && ($response ne " ")) { last; } - + } # save bubbled letter for later