loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.67, 2000/11/21 12:23:25	version 1.68, 2000/11/22 12:14:56
Line 67	Line 67
# 10/04 Gerd Kortemeyer	# 10/04 Gerd Kortemeyer
# 10/04 Guy Albertelli	# 10/04 Guy Albertelli
# 10/06,10/09,10/10,10/11,10/14,10/20,10/23,10/25,10/26,10/27,10/28,10/29,	# 10/06,10/09,10/10,10/11,10/14,10/20,10/23,10/25,10/26,10/27,10/28,10/29,
# 10/30,10/31,11/2,11/14,11/15,11/16,11/20,11/21 Gerd Kortemeyer	# 10/30,10/31,11/2,11/14,11/15,11/16,11/20,11/21,11/22 Gerd Kortemeyer

package Apache::lonnet;	package Apache::lonnet;

Line 1194 sub condval {	Line 1194 sub condval {

sub EXT {	sub EXT {
my $varname=shift;	my $varname=shift;
	unless ($varname) { return ''; }
my ($realm,$space,$qualifier,@therest)=split(/\./,$varname);	my ($realm,$space,$qualifier,@therest)=split(/\./,$varname);
my $rest;	my $rest;
if ($therest[0]) {	if ($therest[0]) {