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

albertel lon-capa-cvs@mail.lon-capa.org
Tue, 19 Apr 2005 21:41:18 -0000


albertel		Tue Apr 19 17:41:18 2005 EDT

  Modified files:              (Branch: version_1_3_X)
    /loncom/interface	loncoursedata.pm 
  Log:
  - more defensive
  
  
Index: loncom/interface/loncoursedata.pm
diff -u loncom/interface/loncoursedata.pm:1.141.2.1 loncom/interface/loncoursedata.pm:1.141.2.2
--- loncom/interface/loncoursedata.pm:1.141.2.1	Tue Apr 19 17:13:24 2005
+++ loncom/interface/loncoursedata.pm	Tue Apr 19 17:41:17 2005
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursedata.pm,v 1.141.2.1 2005/04/19 21:13:24 albertel Exp $
+# $Id: loncoursedata.pm,v 1.141.2.2 2005/04/19 21:41:17 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -146,6 +146,7 @@
         $previous_too = $previous;
         $previous = $curRes;
         $curRes = $iterator->next(1);
+	if (!$curRes) { last; }
         my $currentmap = $Nested_Sequences[-1]; # Last one on the stack
         if ($curRes == $iterator->BEGIN_MAP()) {
             if (! ref($previous)) {