[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;