[LON-CAPA-cvs] cvs: loncom /interface lonnavmaps.pm

[matthew]

matthew		Sun Sep 19 10:47:37 2004 EDT

  Modified files:              
    /loncom/interface	lonnavmaps.pm 
  Log:
  countResponses: responseIds returns an array ref, not an array.
  
  
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.292 loncom/interface/lonnavmaps.pm:1.293
--- loncom/interface/lonnavmaps.pm:1.292	Sat Sep 18 12:55:33 2004
+++ loncom/interface/lonnavmaps.pm	Sun Sep 19 10:47:37 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.292 2004/09/18 16:55:33 albertel Exp $
+# $Id: lonnavmaps.pm,v 1.293 2004/09/19 14:47:37 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3964,8 +3964,8 @@
 sub countResponses {
     my $self = shift;
     my $count;
-    foreach my $part ($self->parts()) {
-        $count+= $self->responseIds($part);
+    foreach my $part (@{$self->parts()}) {
+        $count+= scalar($self->responseIds($part));
     }
     return $count;
 }