loncom/interface/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.30, 2001/01/02 22:35:30	version 1.31, 2001/01/02 22:58:46
Line 1191 sub loadcourse {	Line 1191 sub loadcourse {
my $row=$1;	my $row=$1;
unless (($f{$_}=~/^\!/)	unless (($f{$_}=~/^\!/)

\|\| ($row>5))	\|\| ($row>25))

{	{
my @studentdata=&exportsheet(&getuname($safeeval),	my @studentdata=&exportsheet(&getuname($safeeval),
Line 1252 sub loadassessment {	Line 1252 sub loadassessment {
# ----------------------------- returnhash now has all stores for this resource	# ----------------------------- returnhash now has all stores for this resource

# ---------------------------- initialize coursedata and userdata for this user	# ---------------------------- initialize coursedata and userdata for this user
%courseopt=();	undef %courseopt;
%useropt=();	undef %useropt;

my $userprefix=$uname.'_'.$udom.'_';	my $userprefix=$uname.'_'.$udom.'_';

Line 1385 sub exportsheet {	Line 1385 sub exportsheet {
&updatesheet($thissheet);	&updatesheet($thissheet);
&loadrows($thissheet);	&loadrows($thissheet);
&calcsheet($thissheet);	&calcsheet($thissheet);
return &exportdata($thissheet);	my @returnthis=&exportdata($thissheet);
	undef $thissheet;
	return @returnthis;
}	}

# ================================================================ Main handler	# ================================================================ Main handler