[LON-CAPA-cvs] cvs: loncom(version_2_1_X) /interface lonparmset.pm

[albertel]

albertel		Mon May 15 19:46:05 2006 EDT

  Modified files:              (Branch: version_2_1_X)
    /loncom/interface	lonparmset.pm 
  Log:
  - backport 1.305
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.268.2.3 loncom/interface/lonparmset.pm:1.268.2.4
--- loncom/interface/lonparmset.pm:1.268.2.3	Thu Dec 29 12:59:31 2005
+++ loncom/interface/lonparmset.pm	Mon May 15 19:46:03 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.268.2.3 2005/12/29 17:59:31 albertel Exp $
+# $Id: lonparmset.pm,v 1.268.2.4 2006/05/15 23:46:03 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -126,6 +126,7 @@
     my @outpar=();
 # ----------------------------------------------------- Cascading lookup scheme
     my $map=(&Apache::lonnet::decode_symb($symb))[0];    
+    $map = &Apache::lonnet::deversion($map);
 
     my $symbparm=$symb.'.'.$what;
     my $mapparm=$map.'___(all).'.$what;
@@ -363,6 +364,8 @@
 # ---------------------------------------------------------- Construct prefixes
     $spnam=~s/\_([^\_]+)$/\.$1/;
     my $map=(&Apache::lonnet::decode_symb($symb))[0];    
+    $map = &Apache::lonnet::deversion($map);
+
     my $symbparm=$symb.'.'.$spnam;
     my $mapparm=$map.'___(all).'.$spnam;