--- loncom/interface/loncoursedata.pm 2004/11/02 20:48:02 1.141 +++ loncom/interface/loncoursedata.pm 2005/04/21 17:35:58 1.141.2.3 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: loncoursedata.pm,v 1.141 2004/11/02 20:48:02 albertel Exp $ +# $Id: loncoursedata.pm,v 1.141.2.3 2005/04/21 17:35:58 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -142,10 +142,11 @@ sub get_sequence_assessment_data { # my $previous_too; my $previous; - while (scalar(@Nested_Sequences)) { + while (1) { $previous_too = $previous; $previous = $curRes; $curRes = $iterator->next(); + if (!$curRes) { last; } my $currentmap = $Nested_Sequences[-1]; # Last one on the stack if ($curRes == $iterator->BEGIN_MAP()) { if (! ref($previous)) {