version 1.118, 2007/06/20 22:36:52
|
version 1.119, 2007/06/20 22:50:27
|
Line 150 sub grade_response {
|
Line 150 sub grade_response {
|
# Need to know how many foils we have so that I know how many |
# Need to know how many foils we have so that I know how many |
# bubble lines to consume: |
# bubble lines to consume: |
|
|
my $numfoils = scalar @whichfoils; |
my $numfoils = scalar(@whichfoils); |
my $bubble_lines = int($numfoils / $bubbles_per_line); |
my $bubble_lines = int($numfoils / $bubbles_per_line); |
if (($numfoils % $bubbles_per_line) != 0) { |
if (($numfoils % $bubbles_per_line) != 0) { |
$bubble_lines++; # Partial line of bubbles too. |
$bubble_lines++; # Partial line of bubbles too. |