[LON-CAPA-cvs] cvs: loncom(version_1_3_X) /interface loncoursedata.pm

[albertel]

albertel		Thu Apr 21 13:35:58 2005 EDT

  Modified files:              (Branch: version_1_3_X)
    /loncom/interface	loncoursedata.pm 
  Log:
  - switching the logic so that it persists as long as ->next returns something
  
  
Index: loncom/interface/loncoursedata.pm
diff -u loncom/interface/loncoursedata.pm:1.141.2.2 loncom/interface/loncoursedata.pm:1.141.2.3
--- loncom/interface/loncoursedata.pm:1.141.2.2	Tue Apr 19 17:41:17 2005
+++ loncom/interface/loncoursedata.pm	Thu Apr 21 13:35:58 2005
@@ -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 @@
     # 
     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()) {