--- loncom/interface/loncoursedata.pm 2005/04/19 21:41:17 1.141.2.2 +++ 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.2.2 2005/04/19 21:41:17 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,10 @@ sub get_sequence_assessment_data { # my $previous_too; my $previous; - while (scalar(@Nested_Sequences)) { + while (1) { $previous_too = $previous; $previous = $curRes; - $curRes = $iterator->next(1); + $curRes = $iterator->next(); if (!$curRes) { last; } my $currentmap = $Nested_Sequences[-1]; # Last one on the stack if ($curRes == $iterator->BEGIN_MAP()) {