[LON-CAPA-cvs] cvs: loncom(version_2_1_X) /lonnet/perl lonnet.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Mon, 15 May 2006 23:42:53 -0000
albertel Mon May 15 19:42:53 2006 EDT
Modified files: (Branch: version_2_1_X)
/loncom/lonnet/perl lonnet.pm
Log:
- backport 1.735
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.683.2.20 loncom/lonnet/perl/lonnet.pm:1.683.2.21
--- loncom/lonnet/perl/lonnet.pm:1.683.2.20 Thu Apr 6 15:19:11 2006
+++ loncom/lonnet/perl/lonnet.pm Mon May 15 19:42:52 2006
@@ -1,7 +1,7 @@
# The LearningOnline Network
# TCP networking package
#
-# $Id: lonnet.pm,v 1.683.2.20 2006/04/06 19:19:11 albertel Exp $
+# $Id: lonnet.pm,v 1.683.2.21 2006/05/15 23:42:52 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -4970,7 +4970,7 @@
# ----------------------------------------------------- Cascading lookup scheme
my $symbp=$symbparm;
- my $mapp=(&decode_symb($symbp))[0];
+ my $mapp=&deversion((&decode_symb($symbp))[0]);
my $symbparm=$symbp.'.'.$spacequalifierrest;
my $mapparm=$mapp.'___(all).'.$spacequalifierrest;