--- loncom/interface/lonparmset.pm	2001/07/06 14:55:05	1.31
+++ loncom/interface/lonparmset.pm	2001/08/08 21:00:49	1.32
@@ -12,7 +12,7 @@
 # 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28,
 # 12/08,12/12,
 # 16/01/01,02/08,03/20,03/23,03/24,03/26,05/09,
-# 07/05,07/06 Gerd Kortemeyer
+# 07/05,07/06,08/08 Gerd Kortemeyer
 
 package Apache::lonparmset;
 
@@ -291,7 +291,7 @@ sub assessparms {
 # ---------------------------------------------------------- Anything to store?
         if ($ENV{'form.pres_marker'}) {
        my ($sresid,$spnam,$snum)=split(/\&/,$ENV{'form.pres_marker'});
-       $spnam=~s/\_/\./;
+       $spnam=~s/\_([^\_]+)$/\.$1/;
 # ---------------------------------------------------------- Construct prefixes
 
        my $symbparm=$symbp{$sresid}.'.'.$spnam;