--- loncom/homework/grades.pm	2008/12/24 07:06:08	1.528.2.4
+++ loncom/homework/grades.pm	2008/12/24 12:33:28	1.528.2.5
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.528.2.4 2008/12/24 07:06:08 raeburn Exp $
+# $Id: grades.pm,v 1.528.2.5 2008/12/24 12:33:28 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -7349,11 +7349,11 @@ sub scantron_get_maxbubble {
                     my ($numbub,$numshown);
                     if ($analysis->{$part_id.'.type'} eq 'optionresponse') {
                         if (ref($analysis->{$part_id.'.options'}) eq 'ARRAY') {
-                            $numbub = scalar(@{$analysis{$part_id.'.options'}});
+                            $numbub = scalar(@{$analysis->{$part_id.'.options'}});
                         }
                     } elsif ($analysis->{$part_id.'.type'} eq 'matchresponse') {
-                        if (ref($analysis{$part_id.'.items'}) eq 'ARRAY') {
-                            $numbub = scalar(@{$analysis{$part_id.'.items'}});
+                        if (ref($analysis->{$part_id.'.items'}) eq 'ARRAY') {
+                            $numbub = scalar(@{$analysis->{$part_id.'.items'}});
                         }
                     } elsif ($analysis->{$part_id.'.type'} eq 'rankresponse') {
                         if (ref($analysis->{$part_id.'.foils'}) eq 'ARRAY') {