loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.335, 2003/03/07 23:37:09	version 1.336, 2003/03/07 23:45:31
Line 2831 sub EXT {	Line 2831 sub EXT {
my ($varname,$symbparm,$udom,$uname,)=@_;	my ($varname,$symbparm,$udom,$uname,)=@_;

unless ($varname) { return ''; }	unless ($varname) { return ''; }

#get real user name/domain, courseid and symb	#get real user name/domain, courseid and symb
my $courseid;	my $courseid;
if (!($uname && $udom)) {	if (!($uname && $udom)) {
Line 3013 sub EXT {	Line 3012 sub EXT {

# ------------------------------------------------------------------ Cascade up	# ------------------------------------------------------------------ Cascade up
unless ($space eq '0') {	unless ($space eq '0') {
my ($part,$id)=split(/_/,$space);	my @parts=split(/_/,$space);
if ($id) {	my $id=pop(@parts);
my $partgeneral=&EXT('resource.'.$part.'.'.$qualifierrest,	my $part=join('_',@parts);
$symbparm,$udom,$uname);	if ($part eq '') { $part='0'; }
if (defined($partgeneral)) { return $partgeneral; }	my $partgeneral=&EXT('resource.'.$part.'.'.$qualifierrest,
} else {	$symbparm,$udom,$uname);
my $resourcegeneral=&EXT('resource.0.'.$qualifierrest,
$symbparm,$udom,$uname);
if (defined($resourcegeneral)) { return $resourcegeneral; }
}
}	}

# ---------------------------------------------------- Any other user namespace	# ---------------------------------------------------- Any other user namespace