|
version 1.689, 2013/06/01 00:22:42
|
version 1.690, 2013/06/16 16:46:48
|
|
Line 5174 sub restore_bubble_lines {
|
Line 5174 sub restore_bubble_lines {
|
| } |
} |
| } |
} |
| |
|
| # Given the parsed scanline, get the response for |
|
| # 'answer' number n: |
|
| |
|
| sub get_response_bubbles { |
|
| my ($parsed_line, $response) = @_; |
|
| |
|
| my $bubble_line = $first_bubble_line{$response-1} +1; |
|
| my $bubble_lines= $bubble_lines_per_response{$response-1}; |
|
| |
|
| my $selected = ""; |
|
| |
|
| for (my $bline = 0; $bline < $bubble_lines; $bline++) { |
|
| $selected .= $$parsed_line{"scantron.$bubble_line.answer"}.":"; |
|
| $bubble_line++; |
|
| } |
|
| return $selected; |
|
| } |
|
| |
|
| =pod |
=pod |
| |
|
| =item scantron_filenames |
=item scantron_filenames |
![[BACK]](/icons/back.gif){kind=icon}
Return to grades.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework