loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.31, 2001/07/06 14:55:05	version 1.32, 2001/08/08 21:00:49
Line 12	Line 12
# 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28,	# 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28,
# 12/08,12/12,	# 12/08,12/12,
# 16/01/01,02/08,03/20,03/23,03/24,03/26,05/09,	# 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;	package Apache::lonparmset;

Line 291 sub assessparms {	Line 291 sub assessparms {
# ---------------------------------------------------------- Anything to store?	# ---------------------------------------------------------- Anything to store?
if ($ENV{'form.pres_marker'}) {	if ($ENV{'form.pres_marker'}) {
my ($sresid,$spnam,$snum)=split(/\&/,$ENV{'form.pres_marker'});	my ($sresid,$spnam,$snum)=split(/\&/,$ENV{'form.pres_marker'});
$spnam=~s/\_/\./;	$spnam=~s/\_([^\_]+)$/\.$1/;
# ---------------------------------------------------------- Construct prefixes	# ---------------------------------------------------------- Construct prefixes

my $symbparm=$symbp{$sresid}.'.'.$spnam;	my $symbparm=$symbp{$sresid}.'.'.$spnam;