--- loncom/interface/lonparmset.pm 2005/12/29 17:59:31 1.268.2.3 +++ loncom/interface/lonparmset.pm 2006/05/15 23:46:03 1.268.2.4 @@ -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 @@ sub parmval_by_symb { 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 @@ sub storeparm_by_symb_inner { # ---------------------------------------------------------- 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;