|
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. |
![[BACK]](/icons/back.gif){kind=icon}
Return to radiobuttonresponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework