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 |