Return to lonparmset.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.265, 2005/11/11 23:07:27 | version 1.266, 2005/11/14 14:01:52 |
---|---|
Line 316 sub storeparm_by_symb { | Line 316 sub storeparm_by_symb { |
# store parameter | # store parameter |
&storeparm_by_symb_inner | &storeparm_by_symb_inner |
($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec); | ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec); |
# don't do anything if parameter was reset | |
unless ($nval) { return; } | |
my ($prefix,$parm)=($spnam=~/^(.*[\_\.])([^\_\.]+)$/); | my ($prefix,$parm)=($spnam=~/^(.*[\_\.])([^\_\.]+)$/); |
# remember that this was set | # remember that this was set |
$recstack{$parm}=1; | $recstack{$parm}=1; |