loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.319, 2003/01/15 19:34:03	version 1.320, 2003/01/28 00:09:57
Line 2817 sub EXT {	Line 2817 sub EXT {
} else {	} else {
$courseid=$ENV{'request.course.id'};	$courseid=$ENV{'request.course.id'};
}	}

my ($realm,$space,$qualifier,@therest)=split(/\./,$varname);	my ($realm,$space,$qualifier,@therest)=split(/\./,$varname);
my $rest;	my $rest;
if ($therest[0]) {	if (defined($therest[0])) {
$rest=join('.',@therest);	$rest=join('.',@therest);
} else {	} else {
$rest='';	$rest='';
}	}

my $qualifierrest=$qualifier;	my $qualifierrest=$qualifier;
if ($rest) { $qualifierrest.='.'.$rest; }	if ($rest) { $qualifierrest.='.'.$rest; }
my $spacequalifierrest=$space;	my $spacequalifierrest=$space;