[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

albertel lon-capa-cvs@mail.lon-capa.org
Sat, 05 Feb 2005 06:48:38 -0000


albertel		Sat Feb  5 01:48:38 2005 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - update comments
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.593 loncom/lonnet/perl/lonnet.pm:1.594
--- loncom/lonnet/perl/lonnet.pm:1.593	Sat Feb  5 01:44:57 2005
+++ loncom/lonnet/perl/lonnet.pm	Sat Feb  5 01:48:38 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.593 2005/02/05 06:44:57 albertel Exp $
+# $Id: lonnet.pm,v 1.594 2005/02/05 06:48:38 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4379,7 +4379,7 @@
 		}
 	    }
 
-# -------------------------------------------------------- second, check course
+# ------------------------------------------------ second, check some of course
 
 	    my $coursereply=&courseresdata($ENV{'course.'.$courseid.'.num'},
 					   $ENV{'course.'.$courseid.'.domain'},
@@ -4398,7 +4398,7 @@
 	    }
 	    if ($thisparm) { return $thisparm; }
 	}
-# --------------------------------------------- last, look in resource metadata
+# ------------------------------------------ fourth, look in resource metadata
 
 	$spacequalifierrest=~s/\./\_/;
 	my $filename;
@@ -4413,6 +4413,7 @@
 	$metadata=&metadata($filename,'parameter_'.$spacequalifierrest);
 	if (defined($metadata)) { return $metadata; }
 
+# ---------------------------------------------- fourth, look in rest pf course
 	if ($symbparm && defined($courseid) && 
 	    $courseid eq $ENV{'request.course.id'}) {
 	    my $coursereply=&courseresdata($ENV{'course.'.$courseid.'.num'},