--- loncom/lonnet/perl/lonnet.pm 2005/02/05 06:44:57 1.593 +++ loncom/lonnet/perl/lonnet.pm 2005/02/05 06:48:38 1.594 @@ -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 @@ sub EXT { } } -# -------------------------------------------------------- second, check course +# ------------------------------------------------ second, check some of course my $coursereply=&courseresdata($ENV{'course.'.$courseid.'.num'}, $ENV{'course.'.$courseid.'.domain'}, @@ -4398,7 +4398,7 @@ sub EXT { } if ($thisparm) { return $thisparm; } } -# --------------------------------------------- last, look in resource metadata +# ------------------------------------------ fourth, look in resource metadata $spacequalifierrest=~s/\./\_/; my $filename; @@ -4413,6 +4413,7 @@ sub EXT { $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'},