[LON-CAPA-cvs] cvs: loncom(version_0_6_1) /lonnet/perl lonnet.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Sat, 01 Feb 2003 19:47:37 -0000
albertel Sat Feb 1 14:47:37 2003 EDT
Modified files: (Branch: version_0_6_1)
/loncom/lonnet/perl lonnet.pm
Log:
- backport of 1.320
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.317 loncom/lonnet/perl/lonnet.pm:1.317.2.1
--- loncom/lonnet/perl/lonnet.pm:1.317 Fri Jan 10 16:13:00 2003
+++ loncom/lonnet/perl/lonnet.pm Sat Feb 1 14:47:37 2003
@@ -1,7 +1,7 @@
# The LearningOnline Network
# TCP networking package
#
-# $Id: lonnet.pm,v 1.317 2003/01/10 21:13:00 www Exp $
+# $Id: lonnet.pm,v 1.317.2.1 2003/02/01 19:47:37 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2766,14 +2766,14 @@
} else {
$courseid=$ENV{'request.course.id'};
}
-
my ($realm,$space,$qualifier,@therest)=split(/\./,$varname);
my $rest;
- if ($therest[0]) {
+ if (defined($therest[0])) {
$rest=join('.',@therest);
} else {
$rest='';
}
+
my $qualifierrest=$qualifier;
if ($rest) { $qualifierrest.='.'.$rest; }
my $spacequalifierrest=$space;