loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.376, 2003/05/21 19:57:46	version 1.377, 2003/06/10 15:52:51
Line 3188 sub courseresdata {	Line 3188 sub courseresdata {
# --------------------------------------------------------- Value of a Variable	# --------------------------------------------------------- Value of a Variable

sub EXT {	sub EXT {
my ($varname,$symbparm,$udom,$uname,)=@_;	my ($varname,$symbparm,$udom,$uname,$usection)=@_;

unless ($varname) { return ''; }	unless ($varname) { return ''; }
#get real user name/domain, courseid and symb	#get real user name/domain, courseid and symb
Line 3305 sub EXT {	Line 3305 sub EXT {
($ENV{'user.domain'} eq $udom)) {	($ENV{'user.domain'} eq $udom)) {
$section=$ENV{'request.course.sec'};	$section=$ENV{'request.course.sec'};
} else {	} else {
$section=&usection($udom,$uname,$courseid);	if (! defined($usection)) {
	$section=&usection($udom,$uname,$courseid);
	} else {
	$section = $usection;
	}
}	}

my $seclevel=$courseid.'.['.$section.'].'.$spacequalifierrest;	my $seclevel=$courseid.'.['.$section.'].'.$spacequalifierrest;