loncom/interface/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.59, 2001/09/01 20:38:52	version 1.60, 2001/09/11 00:05:13
Line 6	Line 6
# 01/01/01,02/01,03/01,19/01,20/01,22/01,	# 01/01/01,02/01,03/01,19/01,20/01,22/01,
# 03/05,03/08,03/10,03/12,03/13,03/15,03/17,	# 03/05,03/08,03/10,03/12,03/13,03/15,03/17,
# 03/19,03/20,03/21,03/27,04/05,04/09,	# 03/19,03/20,03/21,03/27,04/05,04/09,
# 07/09,07/14,07/21,09/01 Gerd Kortemeyer	# 07/09,07/14,07/21,09/01,09/10 Gerd Kortemeyer

package Apache::lonspreadsheet;	package Apache::lonspreadsheet;

Line 1513 sub loadassessment {	Line 1513 sub loadassessment {
# ----------------- now courseopt, useropt initialized for this user and course	# ----------------- now courseopt, useropt initialized for this user and course
# (used by parmval)	# (used by parmval)

	#
	# Load keys for this assessment only
	#
	my %thisassess=();
	my ($symap,$syid,$srcf)=split(/\_\_\_/,$symb);

	map {
	$thisassess{$_}=1;
	} split(/\,/,&Apache::lonnet::metadata($srcf,'keys'));
	#
	# Load parameters
	#
my %c=();	my %c=();

if (tie(%parmhash,'GDBM_File',	if (tie(%parmhash,'GDBM_File',
Line 1522 sub loadassessment {	Line 1534 sub loadassessment {
if ($_=~/^A/) {	if ($_=~/^A/) {
unless ($f{$_}=~/^\!/) {	unless ($f{$_}=~/^\!/) {
if ($f{$_}=~/^parameter/) {	if ($f{$_}=~/^parameter/) {
	if ($thisassess{$f{$_}}) {
my $val=&parmval($f{$_},$safeeval);	my $val=&parmval($f{$_},$safeeval);
$c{$_}=$val;	$c{$_}=$val;
$c{$f{$_}}=$val;	$c{$f{$_}}=$val;
	}
} else {	} else {
my $key=$f{$_};	my $key=$f{$_};
my $ckey=$key;	my $ckey=$key;