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

[matthew]

matthew		Wed Aug 28 14:29:22 2002 EDT

  Modified files:              
    /loncom/interface	loncoursedata.pm 
  Log:
  A few comments added and check to see if $c is defined before using it.
  
  
Index: loncom/interface/loncoursedata.pm
diff -u loncom/interface/loncoursedata.pm:1.20 loncom/interface/loncoursedata.pm:1.21
--- loncom/interface/loncoursedata.pm:1.20	Thu Aug 15 14:16:29 2002
+++ loncom/interface/loncoursedata.pm	Wed Aug 28 14:29:22 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: loncoursedata.pm,v 1.20 2002/08/15 18:16:29 stredwic Exp $
+# $Id: loncoursedata.pm,v 1.21 2002/08/28 18:29:22 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -61,7 +61,7 @@
 
 This section contains all the files that get data from other servers 
 and/or itself.  There is one function that has a call to get remote
-information but isn't included here which is ProcessTopLevelMap.  The
+information but is not included here which is ProcessTopLevelMap.  The
 usage was small enough to be ignored, but that portion may be moved
 here in the future.
 
@@ -79,12 +79,14 @@
 
 =over 4
 
-Input: $courseID, $c
+Input: $courseID, $lastDownloadTime, $c
 
 $courseID:  The id of the course
 
+$lastDownloadTime: I am not sure.
+
 $c: The connection class that can determine if the browser has aborted.  It
-is used to short circuit this function so that it doesn't continue to 
+is used to short circuit this function so that it does not continue to 
 get information when there is no need.
 
 Output: \%classlist
@@ -126,7 +128,7 @@
     }
 
     foreach my $name (keys(%classlist)) {
-        if($c->aborted()) {
+        if((defined($c) && ($c->aborted())) {
             $classlist{'error'}='aborted';
             return \%classlist;
         }