loncom/interface/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/Attic/lonspreadsheet.pm between versions 1.107 and 1.131

version 1.107, 2002/09/05 14:38:57	version 1.131, 2002/10/30 15:07:20
Line 26	Line 26
# The LearningOnline Network with CAPA	# The LearningOnline Network with CAPA
# Spreadsheet/Grades Display Handler	# Spreadsheet/Grades Display Handler
#	#
# 11/11,11/15,11/27,12/04,12/05,12/06,12/07,
# 12/08,12/09,12/11,12/12,12/15,12/16,12/18,12/19,12/30,
# 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/19,03/20,03/21,03/27,04/05,04/09,
# 07/09,07/14,07/21,09/01,09/10,9/11,9/12,9/13,9/14,9/17,
# 10/16,10/17,10/20,11/05,11/28,12/27 Gerd Kortemeyer
# 01/14/02 Matthew
# 02/04/02 Matthew

# POD required stuff:	# POD required stuff:

=head1 NAME	=head1 NAME
Line 54 not the grades of their peers. The spre	Line 44 not the grades of their peers. The spre
offering the ability to use Perl code to manipulate data, as well as many	offering the ability to use Perl code to manipulate data, as well as many
built-in functions.	built-in functions.


=head2 Functions available to user of lonspreadsheet	=head2 Functions available to user of lonspreadsheet

=over 4	=over 4
Line 72 use Apache::Constants qw(:common :http);	Line 61 use Apache::Constants qw(:common :http);
use GDBM_File;	use GDBM_File;
use HTML::TokeParser;	use HTML::TokeParser;
use Apache::lonhtmlcommon;	use Apache::lonhtmlcommon;
	use Apache::loncoursedata;
	#
	# Caches for coursewide information
	#
	my %Section;

#	#
# Caches for previously calculated spreadsheets	# Caches for previously calculated spreadsheets
#	#
Line 122 my $tmpdir;	Line 117 my $tmpdir;
# =============================================================================	# =============================================================================
# ===================================== Implements an instance of a spreadsheet	# ===================================== Implements an instance of a spreadsheet

sub initsheet {	##
my $safeeval = new Safe(shift);	## mask - used to reside in the safe space.
my $safehole = new Safe::Hole;	##
$safeeval->permit("entereval");
$safeeval->permit(":base_math");
$safeeval->permit("sort");
$safeeval->deny(":base_io");
$safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT');
$safeeval->share('$@');
my $code=<<'ENDDEFS';
# ---------------------------------------------------- Inside of the safe space

#
# f: formulas
# t: intermediate format (variable references expanded)
# v: output values
# c: preloaded constants (A-column)
# rl: row label
# os: other spreadsheets (for student spreadsheet only)

undef %sheet_values;
undef %t;
undef %f;
undef %c;
undef %rowlabel;
undef @os;

$maxrow = 0;
$sheettype = '';

# filename/reference of the sheet
$filename = '';

# user data
$uname = '';
$uhome = '';
$udom = '';

# course data

$csec = '';
$chome= '';
$cnum = '';
$cdom = '';
$cid = '';
$cfn = '';

# symb

$usymb = '';

# error messages
$errormsg = '';

sub mask {	sub mask {
my ($lower,$upper)=@_;	my ($lower,$upper)=@_;
	#
$lower=~/([A-Za-z]\|\)(\d+\|\)/;	my ($la,$ld) = ($lower=~/([A-Za-z]\|\)(\d+\|\)/);
my $la=$1;	my ($ua,$ud) = ($upper=~/([A-Za-z]\|\)(\d+\|\)/);
my $ld=$2;	#

$upper=~/([A-Za-z]\|\)(\d+\|\)/;
my $ua=$1;
my $ud=$2;
my $alpha='';	my $alpha='';
my $num='';	my $num='';
	#
if (($la eq '') \|\| ($ua eq '')) {	if (($la eq '') \|\| ($ua eq '')) {
$alpha='[A-Za-z]';	$alpha='[A-Za-z]';
} else {	} else {

if (($la=~/[A-Z]/) && ($ua=~/[A-Z]/) \|\|	if (($la=~/[A-Z]/) && ($ua=~/[A-Z]/) \|\|
($la=~/[a-z]/) && ($ua=~/[a-z]/)) {	($la=~/[a-z]/) && ($ua=~/[a-z]/)) {
$alpha='['.$la.'-'.$ua.']';	$alpha='['.$la.'-'.$ua.']';
Line 199 sub mask {	Line 140 sub mask {
$alpha='['.$la.'-Za-'.$ua.']';	$alpha='['.$la.'-Za-'.$ua.']';
}	}
}	}

if (($ld eq '') \|\| ($ud eq '')) {	if (($ld eq '') \|\| ($ud eq '')) {
$num='\d+';	$num='\d+';
} else {	} else {
Line 219 sub mask {	Line 159 sub mask {
} else {	} else {
my @lda=($ld=~m/\d/g);	my @lda=($ld=~m/\d/g);
my @uda=($ud=~m/\d/g);	my @uda=($ud=~m/\d/g);
my $i; $j=0; $notdone=1;	my $i;
	my $j=0;
	my $notdone=1;
for ($i=0;($i<=$#lda)&&($notdone);$i++) {	for ($i=0;($i<=$#lda)&&($notdone);$i++) {
if ($lda[$i]==$uda[$i]) {	if ($lda[$i]==$uda[$i]) {
$num.=$lda[$i];	$num.=$lda[$i];
Line 243 sub mask {	Line 185 sub mask {
}	}
$num.=')';	$num.=')';
} else {	} else {
if ($lda[$#lda]!=$uda[$#uda]) {	if ($lda[-1]!=$uda[-1]) {
$num.='['.$lda[$#lda].'-'.$uda[$#uda].']';	$num.='['.$lda[-1].'-'.$uda[-1].']';
}	}
}	}
}	}
Line 252 sub mask {	Line 194 sub mask {
return '^'.$alpha.$num."\$";	return '^'.$alpha.$num."\$";
}	}



	sub initsheet {
	my $safeeval = new Safe(shift);
	my $safehole = new Safe::Hole;
	$safeeval->permit("entereval");
	$safeeval->permit(":base_math");
	$safeeval->permit("sort");
	$safeeval->deny(":base_io");
	$safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT');
	$safehole->wrap(\&Apache::lonspreadsheet::mask,$safeeval,'&mask');
	$safeeval->share('$@');
	my $code=<<'ENDDEFS';
	# ---------------------------------------------------- Inside of the safe space

	#
	# f: formulas
	# t: intermediate format (variable references expanded)
	# v: output values
	# c: preloaded constants (A-column)
	# rl: row label
	# os: other spreadsheets (for student spreadsheet only)

	undef %sheet_values; # Holds the (computed, final) values for the sheet
	# This is only written to by &calc, the spreadsheet computation routine.
	# It is read by many functions
	undef %t; # Holds the values of the spreadsheet temporarily. Set in &sett,
	# which does the translation of strings like C5 into the value in C5.
	# Used in &calc - %t holds the values that are actually eval'd.
	undef %f; # Holds the formulas for each cell. This is the users
	# (spreadsheet authors) data for each cell.
	# set by &setformulas and returned by &getformulas
	# &setformulas is called by &readsheet, &tmpread, &updateclasssheet,
	# &updatestudentassesssheet, &loadstudent, &loadcourse
	# &getformulas is called by &writesheet, &tmpwrite, &updateclasssheet,
	# &updatestudentassesssheet, &loadstudent, &loadcourse, &loadassessment,
	undef %c; # Holds the constants for a sheet. In the assessment
	# sheets, this is the A column. Used in &MINPARM, &MAXPARM, &expandnamed,
	# &sett, and &setconstants. There is no &getconstants.
	# &setconstants is called by &loadstudent, &loadcourse, &load assessment,
	undef @os; # Holds the names of other spreadsheets - this is used to specify
	# the spreadsheets that are available for the assessment sheet.
	# Set by &setothersheets. &setothersheets is called by &handler. A
	# related subroutine is &othersheets.

	$maxrow = 0;
	$sheettype = '';

	# filename/reference of the sheet
	$filename = '';

	# user data
	$uname = '';
	$uhome = '';
	$udom = '';

	# course data

	$csec = '';
	$chome= '';
	$cnum = '';
	$cdom = '';
	$cid = '';
	$coursefilename = '';

	# symb

	$usymb = '';

	# error messages
	$errormsg = '';


#-------------------------------------------------------	#-------------------------------------------------------

=item UWCALC(hashname,modules,units,date)	=item UWCALC(hashname,modules,units,date)
Line 813 sub expandnamed {	Line 828 sub expandnamed {
foreach $parameter (keys(%c)) {	foreach $parameter (keys(%c)) {
push @matches,$parameter if ($parameter =~ /$expression/);	push @matches,$parameter if ($parameter =~ /$expression/);
}	}
if ($#matches == 0) {	if (scalar(@matches) == 0) {
	$returnvalue = 'unmatched parameter: '.$parameter;
	} elsif (scalar(@matches) == 1) {
$returnvalue = '$c{\''.$matches[0].'\'}';	$returnvalue = '$c{\''.$matches[0].'\'}';
} elsif ($#matches > 0) {	} elsif (scalar(@matches) > 0) {
# more than one match. Look for a concise one	# more than one match. Look for a concise one
$returnvalue = "'non-unique parameter name : $expression'";	$returnvalue = "'non-unique parameter name : $expression'";
foreach (@matches) {	foreach (@matches) {
Line 824 sub expandnamed {	Line 841 sub expandnamed {
}	}
}	}
} else {	} else {
$returnvalue = "'bad parameter name : $expression'";	# There was a negative number of matches, which indicates
	# something is wrong with reality. Better warn the user.
	$returnvalue = 'bizzare parameter: '.$parameter;
}	}
return $returnvalue;	return $returnvalue;
}	}
Line 863 sub sett {	Line 882 sub sett {
}	}
# Deal with the normal cells	# Deal with the normal cells
foreach (keys(%f)) {	foreach (keys(%f)) {
if (($f{$_}) && ($_!~/template\_/)) {	if (exists($f{$_}) && ($_!~/template\_/)) {
my $matches=($_=~/^$pattern(\d+)/);	my $matches=($_=~/^$pattern(\d+)/);
if (($matches) && ($1)) {	if (($matches) && ($1)) {
unless ($f{$_}=~/^\!/) {	unless ($f{$_}=~/^\!/) {
Line 924 sub calc {	Line 943 sub calc {
return '';	return '';
}	}

	# ------------------------------------------- End of "Inside of the safe space"
	ENDDEFS
	$safeeval->reval($code);
	return $safeeval;
	}

	#
	#
	#
sub templaterow {	sub templaterow {
	my $sheet = shift;
my @cols=();	my @cols=();
$cols[0]='<b><font size=+1>Template</font></b>';	$cols[0]='<b><font size=+1>Template</font></b>';
foreach ('A','B','C','D','E','F','G','H','I','J','K','L','M',	foreach ('A','B','C','D','E','F','G','H','I','J','K','L','M',
'N','O','P','Q','R','S','T','U','V','W','X','Y','Z',	'N','O','P','Q','R','S','T','U','V','W','X','Y','Z',
'a','b','c','d','e','f','g','h','i','j','k','l','m',	'a','b','c','d','e','f','g','h','i','j','k','l','m',
'n','o','p','q','r','s','t','u','v','w','x','y','z') {	'n','o','p','q','r','s','t','u','v','w','x','y','z') {
my $fm=$f{'template_'.$_};	my $fm=$sheet->{'f'}->{'template_'.$_};
$fm=~s/[\'\"]/\&\#34;/g;	$fm=~s/[\'\"]/\&\#34;/g;
push(@cols,"'template_$_','$fm'".'___eq___'.$fm);	push(@cols,"'template_$_','$fm'".'___eq___'.$fm);
}	}
return @cols;	return @cols;
}	}

#
# This is actually used for the student spreadsheet, not the assessment sheet
# Do not be fooled by the name!
#
sub outrowassess {	sub outrowassess {
# $n is the current row number	# $n is the current row number
my $n=shift;	my $sheet = shift;
	my $n=shift;
	my $csv = $ENV{'form.showcsv'};
my @cols=();	my @cols=();
if ($n) {	if ($n) {
my ($usy,$ufn)=split(/__&&&\__/,$f{'A'.$n});	my ($usy,$ufn)=split(/__&&&\__/,$sheet->{'f'}->{'A'.$n});
if ($rowlabel{$usy}) {	if ($sheet->{'rowlabel'}->{$usy}) {
$cols[0]=$rowlabel{$usy}.'<br>'.	$cols[0]=&format_rowlabel($sheet->{'rowlabel'}->{$usy});
	if (! $csv) {
	$cols[0].='<br>'.
'<select name="sel_'.$n.'" onChange="changesheet('.$n.')">'.	'<select name="sel_'.$n.'" onChange="changesheet('.$n.')">'.
'<option name="default">Default</option>';	'<option name="default">Default</option>';
	}
} else {	} else {
$cols[0]='';	$cols[0]='';
}	}
foreach (@os) {	if (! $csv) {
$cols[0].='<option name="'.$_.'"';	foreach (@{$sheet->{'othersheets'}}) {
if ($ufn eq $_) {	$cols[0].='<option name="'.$_.'"';
$cols[0].=' selected';	if ($ufn eq $_) {
	$cols[0].=' selected';
	}
	$cols[0].='>'.$_.'</option>';
}	}
$cols[0].='>'.$_.'</option>';	$cols[0].='</select>';
}	}
$cols[0].='</select>';
} else {	} else {
$cols[0]='<b><font size=+1>Export</font></b>';	$cols[0]='<b><font size=+1>Export</font></b>';
}	}
Line 970 sub outrowassess {	Line 1003 sub outrowassess {
'N','O','P','Q','R','S','T','U','V','W','X','Y','Z',	'N','O','P','Q','R','S','T','U','V','W','X','Y','Z',
'a','b','c','d','e','f','g','h','i','j','k','l','m',	'a','b','c','d','e','f','g','h','i','j','k','l','m',
'n','o','p','q','r','s','t','u','v','w','x','y','z') {	'n','o','p','q','r','s','t','u','v','w','x','y','z') {
my $fm=$f{$_.$n};	my $fm=$sheet->{'f'}->{$_.$n};
$fm=~s/[\'\"]/\&\#34;/g;	$fm=~s/[\'\"]/\&\#34;/g;
push(@cols,"'$_$n','$fm'".'___eq___'.$sheet_values{$_.$n});	push(@cols,"'$_$n','$fm'".'___eq___'.$sheet->{'values'}->{$_.$n});
}	}
return @cols;	return @cols;
}	}

sub outrow {	sub outrow {
	my $sheet=shift;
my $n=shift;	my $n=shift;
my @cols=();	my @cols=();
if ($n) {	if ($n) {
$cols[0]=$rowlabel{$f{'A'.$n}};	$cols[0]=&format_rowlabel($sheet->{'rowlabel'}->{$sheet->{'f'}->{'A'.$n}});
} else {	} else {
$cols[0]='<b><font size=+1>Export</font></b>';	$cols[0]='<b><font size=+1>Export</font></b>';
}	}
Line 989 sub outrow {	Line 1023 sub outrow {
'N','O','P','Q','R','S','T','U','V','W','X','Y','Z',	'N','O','P','Q','R','S','T','U','V','W','X','Y','Z',
'a','b','c','d','e','f','g','h','i','j','k','l','m',	'a','b','c','d','e','f','g','h','i','j','k','l','m',
'n','o','p','q','r','s','t','u','v','w','x','y','z') {	'n','o','p','q','r','s','t','u','v','w','x','y','z') {
my $fm=$f{$_.$n};	my $fm=$sheet->{'f'}->{$_.$n};
$fm=~s/[\'\"]/\&\#34;/g;	$fm=~s/[\'\"]/\&\#34;/g;
push(@cols,"'$_$n','$fm'".'___eq___'.$sheet_values{$_.$n});	push(@cols,"'$_$n','$fm'".'___eq___'.$sheet->{'values'}->{$_.$n});
}	}
return @cols;	return @cols;
}	}

sub exportrowa {
my @exportarray=();
foreach ('A','B','C','D','E','F','G','H','I','J','K','L','M',
'N','O','P','Q','R','S','T','U','V','W','X','Y','Z') {
push(@exportarray,$sheet_values{$_.'0'});
}
return @exportarray;
}

# ------------------------------------------- End of "Inside of the safe space"
ENDDEFS
$safeeval->reval($code);
return $safeeval;
}

# ------------------------------------------------ Add or change formula values	# ------------------------------------------------ Add or change formula values

sub setformulas {	sub setformulas {
my ($safeeval,%f)=@_;	my ($sheet)=shift;
%{$safeeval->varglob('f')}=%f;	%{$sheet->{'safe'}->varglob('f')}=%{$sheet->{'f'}};
}	}

# ------------------------------------------------ Add or change formula values	# ------------------------------------------------ Add or change formula values

sub setconstants {	sub setconstants {
my ($safeeval,%c)=@_;	my ($sheet)=shift;
%{$safeeval->varglob('c')}=%c;	my ($constants) = @_;
	if (! ref($constants)) {
	my %tmp = @_;
	$constants = \%tmp;
	}
	$sheet->{'constants'} = $constants;
	return %{$sheet->{'safe'}->varglob('c')}=%{$sheet->{'constants'}};
}	}

# --------------------------------------------- Set names of other spreadsheets	# --------------------------------------------- Set names of other spreadsheets

sub setothersheets {	sub setothersheets {
my ($safeeval,@os)=@_;	my $sheet = shift;
@{$safeeval->varglob('os')}=@os;	my @othersheets = @_;
	$sheet->{'othersheets'} = \@othersheets;
	@{$sheet->{'safe'}->varglob('os')}=@othersheets;
	return;
}	}

# ------------------------------------------------ Add or change formula values	# ------------------------------------------------ Add or change formula values

sub setrowlabels {	sub setrowlabels {
my ($safeeval,%rowlabel)=@_;	my $sheet=shift;
%{$safeeval->varglob('rowlabel')}=%rowlabel;	my ($rowlabel) = @_;
	if (! ref($rowlabel)) {
	my %tmp = @_;
	$rowlabel = \%tmp;
	}
	$sheet->{'rowlabel'}=$rowlabel;
}	}

# ------------------------------------------------------- Calculate spreadsheet	# ------------------------------------------------------- Calculate spreadsheet

sub calcsheet {	sub calcsheet {
my $safeeval=shift;	my $sheet=shift;
return $safeeval->reval('&calc();');	my $result = $sheet->{'safe'}->reval('&calc();');
}	%{$sheet->{'values'}} = %{$sheet->{'safe'}->varglob('sheet_values')};
	return $result;
# ------------------------------------------------------------------ Get values

sub getvalues {
my $safeeval=shift;
return $safeeval->reval('%sheet_values');
}	}

# ---------------------------------------------------------------- Get formulas	# ---------------------------------------------------------------- Get formulas
	# Return a copy of the formulas
sub getformulas {	sub getformulas {
my $safeeval=shift;	my $sheet = shift;
return %{$safeeval->varglob('f')};	return %{$sheet->{'safe'}->varglob('f')};
}	}

# ----------------------------------------------------- Get value of $f{'A'.$n}	# ----------------------------------------------------- Get value of $f{'A'.$n}

sub getfa {	sub getfa {
my ($safeeval,$n)=@_;	my $sheet = shift;
return $safeeval->reval('$f{"A'.$n.'"}');	my ($n)=@_;
}	return $sheet->{'safe'}->reval('$f{"A'.$n.'"}');

# -------------------------------------------------------------------- Get type

sub gettype {
my $safeeval=shift;
return $safeeval->reval('$sheettype');
}

# ------------------------------------------------------------------ Set maxrow

sub setmaxrow {
my ($safeeval,$row)=@_;
$safeeval->reval('$maxrow='.$row.';');
}

# ------------------------------------------------------------------ Get maxrow

sub getmaxrow {
my $safeeval=shift;
return $safeeval->reval('$maxrow');
}

# ---------------------------------------------------------------- Set filename

sub setfilename {
my ($safeeval,$fn)=@_;
$safeeval->reval('$filename="'.$fn.'";');
}

# ---------------------------------------------------------------- Get filename

sub getfilename {
my $safeeval=shift;
return $safeeval->reval('$filename');
}

# --------------------------------------------------------------- Get course ID

sub getcid {
my $safeeval=shift;
return $safeeval->reval('$cid');
}

# --------------------------------------------------------- Get course filename

sub getcfn {
my $safeeval=shift;
return $safeeval->reval('$cfn');
}

# ----------------------------------------------------------- Get course number

sub getcnum {
my $safeeval=shift;
return $safeeval->reval('$cnum');
}

# ------------------------------------------------------------- Get course home

sub getchome {
my $safeeval=shift;
return $safeeval->reval('$chome');
}

# ----------------------------------------------------------- Get course domain

sub getcdom {
my $safeeval=shift;
return $safeeval->reval('$cdom');
}

# ---------------------------------------------------------- Get course section

sub getcsec {
my $safeeval=shift;
return $safeeval->reval('$csec');
}

# --------------------------------------------------------------- Get user name

sub getuname {
my $safeeval=shift;
return $safeeval->reval('$uname');
}

# ------------------------------------------------------------- Get user domain

sub getudom {
my $safeeval=shift;
return $safeeval->reval('$udom');
}

# --------------------------------------------------------------- Get user home

sub getuhome {
my $safeeval=shift;
return $safeeval->reval('$uhome');
}

# -------------------------------------------------------------------- Get symb

sub getusymb {
my $safeeval=shift;
return $safeeval->reval('$usymb');
}	}

# ------------------------------------------------------------- Export of A-row	# ------------------------------------------------------------- Export of A-row

sub exportdata {	sub exportdata {
my $safeeval=shift;	my $sheet=shift;
return $safeeval->reval('&exportrowa()');	my @exportarray=();
	foreach ('A','B','C','D','E','F','G','H','I','J','K','L','M',
	'N','O','P','Q','R','S','T','U','V','W','X','Y','Z') {
	if (exists($sheet->{'values'}->{$_.'0'})) {
	push(@exportarray,$sheet->{'values'}->{$_.'0'});
	} else {
	push(@exportarray,'');
	}
	}
	return @exportarray;
}	}


# ========================================================== End of Spreadsheet	# ========================================================== End of Spreadsheet
# =============================================================================	# =============================================================================

Line 1189 sub exportdata {	Line 1114 sub exportdata {
# --------------------------------------------- Produce output row n from sheet	# --------------------------------------------- Produce output row n from sheet

sub rown {	sub rown {
my ($safeeval,$n)=@_;	my ($sheet,$n)=@_;
my $defaultbg;	my $defaultbg;
my $rowdata='';	my $rowdata='';
my $dataflag=0;	my $dataflag=0;
Line 1204 sub rown {	Line 1129 sub rown {
$rowdata.="\n".'"'.$n.'"';	$rowdata.="\n".'"'.$n.'"';
}	}
my $showf=0;	my $showf=0;
my $proc;	#
	# Determine how many pink (uneditable) cells there are in this sheet.
my $maxred=1;	my $maxred=1;
my $sheettype=&gettype($safeeval);	my $sheettype=$sheet->{'sheettype'};
if ($sheettype eq 'studentcalc') {	if ($sheettype eq 'studentcalc') {
$proc='&outrowassess';
$maxred=26;	$maxred=26;
} else {	} elsif ($sheettype eq 'assesscalc') {
$proc='&outrow';
}
if ($sheettype eq 'assesscalc') {
$maxred=1;	$maxred=1;
} else {	} else {
$maxred=26;	$maxred=26;
}	}
if (&getfa($safeeval,$n)=~/^[\~\-]/) { $maxred=1; }	$maxred=1 if (&getfa($sheet,$n)=~/^[\~\-]/);
	#
	# Get the proper row
	my @rowdata;
if ($n eq '-') {	if ($n eq '-') {
$proc='&templaterow';	@rowdata = &templaterow($sheet);
$n=-1;	$n=-1;
$dataflag=1;	$dataflag=1;
	} elsif ($sheettype eq 'studentcalc') {
	@rowdata = &outrowassess($sheet,$n);
	} else {
	@rowdata = &outrow($sheet,$n);
}	}
foreach ($safeeval->reval($proc.'('.$n.')')) {	#
	foreach (@rowdata) {
my $bgcolor=$defaultbg.((($showf-1)/5==int(($showf-1)/5))?'99':'DD');	my $bgcolor=$defaultbg.((($showf-1)/5==int(($showf-1)/5))?'99':'DD');
my ($fm,$vl)=split(/\_\_\_eq\_\_\_/,$_);	my ($fm,$vl)=split(/\_\_\_eq\_\_\_/,$_);
if ((($vl ne '') \|\| ($vl eq '0')) &&	if ((($vl ne '') \|\| ($vl eq '0')) &&
Line 1237 sub rown {	Line 1167 sub rown {
if ($vl eq '') {	if ($vl eq '') {
$vl='<font size=+2 color='.$bgcolor.'>#</font>';	$vl='<font size=+2 color='.$bgcolor.'>#</font>';
}	}
$rowdata.='<td bgcolor='.$bgcolor.'>'.	$rowdata.='<td bgcolor='.$bgcolor.'>';
'<a href="javascript:celledit('.$fm.');">'.$vl.'</a></td>';	if ($ENV{'request.role'} =~ /^st\./) {
	$rowdata.=$vl;
	} else {
	$rowdata.='<a href="javascript:celledit('.$fm.');">'.
	$vl.'</a>';
	}
	$rowdata.='</td>';
} else {	} else {
$rowdata.='<td bgcolor='.$bgcolor.'> '.$vl.' </td>';	$rowdata.='<td bgcolor='.$bgcolor.'> '.$vl.' </td>';
}	}
Line 1257 sub rown {	Line 1193 sub rown {
# ------------------------------------------------------------- Print out sheet	# ------------------------------------------------------------- Print out sheet

sub outsheet {	sub outsheet {
my ($r,$safeeval,$sheetdata)=@_;	my ($r,$sheet)=@_;
my $maxred = 26; # The maximum number of cells to show as	my $maxred = 26; # The maximum number of cells to show as
# red (uneditable)	# red (uneditable)
# To make student sheets uneditable could we	# To make student sheets uneditable could we
# set $maxred = 52?	# set $maxred = 52?
#	#
my $realm='Course'; # 'assessment', 'user', or 'course' sheet	my $realm='Course'; # 'assessment', 'user', or 'course' sheet
if ($sheetdata->{'sheettype'} eq 'assesscalc') {	if ($sheet->{'sheettype'} eq 'assesscalc') {
$maxred=1;	$maxred=1;
$realm='Assessment';	$realm='Assessment';
} elsif ($sheetdata->{'sheettype'} eq 'studentcalc') {	} elsif ($sheet->{'sheettype'} eq 'studentcalc') {
$maxred=26;	$maxred=26;
$realm='User';	$realm='User';
}	}
Line 1296 sub outsheet {	Line 1232 sub outsheet {
}	}
$tabledata.="<b><font size=+1>$_</font></b></td>";	$tabledata.="<b><font size=+1>$_</font></b></td>";
}	}
$tabledata.='</tr>'.&rown($safeeval,'-').&rown($safeeval,0);	$tabledata.='</tr>'.&rown($sheet,'-').
	&rown($sheet,0);
}	}
$r->print($tabledata);	$r->print($tabledata);
#	#
# Prepare to output rows	# Prepare to output rows
my $row;	my $row;
my $maxrow=&getmaxrow($safeeval);	#
	# Sort the rows in some manner
#	#
my @sortby=();	my @sortby=();
my @sortidx=();	my @sortidx=();
for ($row=1;$row<=$maxrow;$row++) {	for ($row=1;$row<=$sheet->{'maxrow'};$row++) {
push (@sortby, $safeeval->reval('$f{"A'.$row.'"}'));	push (@sortby, $sheet->{'safe'}->reval('$f{"A'.$row.'"}'));
push (@sortidx, $row-1);	push (@sortidx, $row-1);
}	}
@sortidx=sort { $sortby[$a] cmp $sortby[$b]; } @sortidx;	@sortidx=sort { lc($sortby[$a]) cmp lc($sortby[$b]); } @sortidx;
#	#
# Determine the type of child spreadsheets	# Determine the type of child spreadsheets
my $what='Student';	my $what='Student';
if ($sheetdata->{'sheettype'} eq 'assesscalc') {	if ($sheet->{'sheettype'} eq 'assesscalc') {
$what='Item';	$what='Item';
} elsif ($sheetdata->{'sheettype'} eq 'studentcalc') {	} elsif ($sheet->{'sheettype'} eq 'studentcalc') {
$what='Assessment';	$what='Assessment';
}	}
#	#
# Loop through the rows and output them one at a time	# Loop through the rows and output them one at a time
my $n=0;	my $n=0;
for ($row=0;$row<$maxrow;$row++) {	for ($row=0;$row<$sheet->{'maxrow'};$row++) {
my $thisrow=&rown($safeeval,$sortidx[$row]+1);	my $thisrow=&rown($sheet,$sortidx[$row]+1);
if ($thisrow) {	if ($thisrow) {
if (($n/25==int($n/25)) && (!$ENV{'form.showcsv'})) {	if (($n/25==int($n/25)) && (!$ENV{'form.showcsv'})) {
$r->print("</table>\n<br>\n");	$r->print("</table>\n<br>\n");
Line 1346 sub outsheet {	Line 1284 sub outsheet {
# ----------------------------------------------- Read list of available sheets	# ----------------------------------------------- Read list of available sheets
#	#
sub othersheets {	sub othersheets {
my ($safeeval,$stype)=@_;	my ($sheet,$stype)=@_;
	$stype = $sheet->{'sheettype'} if (! defined($stype));
#	#
my $cnum = &getcnum($safeeval);	my $cnum = $sheet->{'cnum'};
my $cdom = &getcdom($safeeval);	my $cdom = $sheet->{'cdom'};
my $chome = &getchome($safeeval);	my $chome = $sheet->{'chome'};
#	#
my @alternatives=();	my @alternatives=();
my %results=&Apache::lonnet::dump($stype.'_spreadsheets',$cdom,$cnum);	my %results=&Apache::lonnet::dump($stype.'_spreadsheets',$cdom,$cnum);
Line 1393 sub parse_sheet {	Line 1332 sub parse_sheet {
#	#
# -------------------------------------- Read spreadsheet formulas for a course	# -------------------------------------- Read spreadsheet formulas for a course
#	#

sub readsheet {	sub readsheet {
my ($safeeval,$sheetdata,$fn)=@_;	my ($sheet,$fn)=@_;
#	#
my $stype = $sheetdata->{'sheettype'};	my $stype = $sheet->{'sheettype'};
my $cnum = $sheetdata->{'cnum'};	my $cnum = $sheet->{'cnum'};
my $cdom = $sheetdata->{'cdom'};	my $cdom = $sheet->{'cdom'};
my $chome = $sheetdata->{'chome'};	my $chome = $sheet->{'chome'};
#	#
if (! defined($fn)) {	if (! defined($fn)) {
# There is no filename. Look for defaults in course and global, cache	# There is no filename. Look for defaults in course and global, cache
Line 1421 sub readsheet {	Line 1359 sub readsheet {
}	}
}	}
# $fn now has a value	# $fn now has a value
&setfilename($safeeval,$fn);	$sheet->{'filename'} = $fn;
# see if sheet is cached	# see if sheet is cached
my $fstring='';	my $fstring='';
if ($fstring=$spreadsheets{$cnum.'_'.$cdom.'_'.$stype.'_'.$fn}) {	if ($fstring=$spreadsheets{$cnum.'_'.$cdom.'_'.$stype.'_'.$fn}) {
&setformulas($safeeval,split(/\_\_\_\;\_\_\_/,$fstring));	my %tmp = split(/___;___/,$fstring);
	$sheet->{'f'} = \%tmp;
	&setformulas($sheet);
} else {	} else {
# Not cached, need to read	# Not cached, need to read
my %f=();	my %f=();
Line 1460 sub readsheet {	Line 1400 sub readsheet {
}	}
# Cache and set	# Cache and set
$spreadsheets{$cnum.'_'.$cdom.'_'.$stype.'_'.$fn}=join('___;___',%f);	$spreadsheets{$cnum.'_'.$cdom.'_'.$stype.'_'.$fn}=join('___;___',%f);
&setformulas($safeeval,%f);	$sheet->{'f'}=\%f;
	&setformulas($sheet);
}	}
}	}

# -------------------------------------------------------- Make new spreadsheet	# -------------------------------------------------------- Make new spreadsheet

sub makenewsheet {	sub makenewsheet {
my ($uname,$udom,$stype,$usymb)=@_;	my ($uname,$udom,$stype,$usymb)=@_;
my %sheetdata=();	my $sheet={};
$sheetdata{'uname'} = $uname;	$sheet->{'uname'} = $uname;
$sheetdata{'udom'} = $udom;	$sheet->{'udom'} = $udom;
$sheetdata{'sheettype'} = $stype;	$sheet->{'sheettype'} = $stype;
$sheetdata{'usymb'} = $usymb;	$sheet->{'usymb'} = $usymb;
$sheetdata{'cid'} = $ENV{'request.course.id'};	$sheet->{'cid'} = $ENV{'request.course.id'};
$sheetdata{'csec'} = &Apache::lonnet::usection	$sheet->{'csec'} = $Section{$uname.':'.$udom};
($udom,$uname,$ENV{'request.course.id'});	$sheet->{'coursefilename'} = $ENV{'request.course.fn'};
$sheetdata{'cfn'} = $ENV{'request.course.fn'};	$sheet->{'cnum'} = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
$sheetdata{'cnum'} = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};	$sheet->{'cdom'} = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
$sheetdata{'cdom'} = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};	$sheet->{'chome'} = $ENV{'course.'.$ENV{'request.course.id'}.'.home'};
$sheetdata{'chome'} = $ENV{'course.'.$ENV{'request.course.id'}.'.home'};	$sheet->{'uhome'} = &Apache::lonnet::homeserver($uname,$udom);
$sheetdata{'uhome'} = &Apache::lonnet::homeserver($uname,$udom);	#
	#
my $safeeval=initsheet($stype);	$sheet->{'f'} = {};
	$sheet->{'constants'} = {};
	$sheet->{'othersheets'} = [];
	$sheet->{'rowlabel'} = {};
	#
	#
	$sheet->{'safe'}=&initsheet($sheet->{'sheettype'});
	#
	# Place all the %$sheet items into the safe space except the safe space
	# itself
my $initstring = '';	my $initstring = '';
foreach (keys(%sheetdata)) {	foreach (qw/uname udom sheettype usymb cid csec coursefilename
$initstring.= qq{\$$_="$sheetdata{$_}";};	cnum cdom chome uhome/) {
	$initstring.= qq{\$$_="$sheet->{$_}";};
}	}
$safeeval->reval($initstring);	$sheet->{'safe'}->reval($initstring);
return $safeeval,\%sheetdata;	return $sheet;
}	}

# ------------------------------------------------------------ Save spreadsheet	# ------------------------------------------------------------ Save spreadsheet

sub writesheet {	sub writesheet {
my ($safeeval,$makedef)=@_;	my ($sheet,$makedef)=@_;
my $cid=&getcid($safeeval);	my $cid=$sheet->{'cid'};
if (&Apache::lonnet::allowed('opa',$cid)) {	if (&Apache::lonnet::allowed('opa',$cid)) {
my %f=&getformulas($safeeval);	my %f=&getformulas($sheet);
my $stype=&gettype($safeeval);	my $stype= $sheet->{'sheettype'};
my $cnum=&getcnum($safeeval);	my $cnum = $sheet->{'cnum'};
my $cdom=&getcdom($safeeval);	my $cdom = $sheet->{'cdom'};
my $chome=&getchome($safeeval);	my $chome= $sheet->{'chome'};
my $fn=&getfilename($safeeval);	my $fn = $sheet->{'filename'};
# Cache new sheet	# Cache new sheet
$spreadsheets{$cnum.'_'.$cdom.'_'.$stype.'_'.$fn}=join('___;___',%f);	$spreadsheets{$cnum.'_'.$cdom.'_'.$stype.'_'.$fn}=join('___;___',%f);
# Write sheet	# Write sheet
my $sheetdata='';
foreach (keys(%f)) {	foreach (keys(%f)) {
unless ($f{$_} eq 'import') {	delete($f{$_}) if ($f{$_} eq 'import');
$sheetdata.=&Apache::lonnet::escape($_).'='.
&Apache::lonnet::escape($f{$_}).'&';
}
}	}
$sheetdata=~s/\&$//;	my $reply = &Apache::lonnet::put($fn,\%f,$cdom,$cnum);
my $reply=&Apache::lonnet::reply('put:'.$cdom.':'.$cnum.':'.$fn.':'.
$sheetdata,$chome);
if ($reply eq 'ok') {	if ($reply eq 'ok') {
$reply=&Apache::lonnet::reply('put:'.$cdom.':'.$cnum.':'.	$reply = &Apache::lonnet::put($stype.'_spreadsheets',
$stype.'_spreadsheets:'.	{$fn => $ENV{'user.name'}.'@'.$ENV{'user.domain'}},
&Apache::lonnet::escape($fn).	$cdom,$cnum);
'='.$ENV{'user.name'}.'@'.
$ENV{'user.domain'},
$chome);
if ($reply eq 'ok') {	if ($reply eq 'ok') {
if ($makedef) {	if ($makedef) {
return &Apache::lonnet::reply('put:'.$cdom.':'.$cnum.	return &Apache::lonnet::put('environment',
':environment:'.	{'spreadsheet_default_'.$stype => $fn },
'spreadsheet_default_'.	$cdom,$cnum);
$stype.'='.
&Apache::lonnet::escape($fn),
$chome);
}	}
return $reply;	return $reply;
}	}
Line 1544 sub writesheet {	Line 1481 sub writesheet {
# ----------------------------------------------- Make a temp copy of the sheet	# ----------------------------------------------- Make a temp copy of the sheet
# "Modified workcopy" - interactive only	# "Modified workcopy" - interactive only
#	#

sub tmpwrite {	sub tmpwrite {
my $safeeval=shift;	my ($sheet) = @_;
my $fn=$ENV{'user.name'}.'_'.	my $fn=$ENV{'user.name'}.'_'.
$ENV{'user.domain'}.'_spreadsheet_'.&getusymb($safeeval).'_'.	$ENV{'user.domain'}.'_spreadsheet_'.$sheet->{'usymb'}.'_'.
&getfilename($safeeval);	$sheet->{'filename'};
$fn=~s/\W/\_/g;	$fn=~s/\W/\_/g;
$fn=$tmpdir.$fn.'.tmp';	$fn=$tmpdir.$fn.'.tmp';
my $fh;	my $fh;
if ($fh=Apache::File->new('>'.$fn)) {	if ($fh=Apache::File->new('>'.$fn)) {
print $fh join("\n",&getformulas($safeeval));	print $fh join("\n",&getformulas($sheet));
}	}
}	}

# ---------------------------------------------------------- Read the temp copy	# ---------------------------------------------------------- Read the temp copy

sub tmpread {	sub tmpread {
my ($safeeval,$nfield,$nform)=@_;	my ($sheet,$nfield,$nform)=@_;
my $fn=$ENV{'user.name'}.'_'.	my $fn=$ENV{'user.name'}.'_'.
$ENV{'user.domain'}.'_spreadsheet_'.&getusymb($safeeval).'_'.	$ENV{'user.domain'}.'_spreadsheet_'.$sheet->{'usymb'}.'_'.
&getfilename($safeeval);	$sheet->{'filename'};
$fn=~s/\W/\_/g;	$fn=~s/\W/\_/g;
$fn=$tmpdir.$fn.'.tmp';	$fn=$tmpdir.$fn.'.tmp';
my $fh;	my $fh;
Line 1585 sub tmpread {	Line 1520 sub tmpread {
}	}
}	}
if ($nform eq 'changesheet') {	if ($nform eq 'changesheet') {
$fo{'A'.$nfield}=(split(/\_\_\&\&\&\_\_/,$fo{'A'.$nfield}))[0];	$fo{'A'.$nfield}=(split(/__&&&\__/,$fo{'A'.$nfield}))[0];
unless ($ENV{'form.sel_'.$nfield} eq 'Default') {	unless ($ENV{'form.sel_'.$nfield} eq 'Default') {
$fo{'A'.$nfield}.='__&&&__'.$ENV{'form.sel_'.$nfield};	$fo{'A'.$nfield}.='__&&&__'.$ENV{'form.sel_'.$nfield};
}	}
Line 1600 sub tmpread {	Line 1535 sub tmpread {
} else {	} else {
if ($nfield) { $fo{$nfield}=$nform; }	if ($nfield) { $fo{$nfield}=$nform; }
}	}
&setformulas($safeeval,%fo);	$sheet->{'f'}=\%fo;
	&setformulas($sheet);
}	}

##################################################	##################################################
Line 1612 sub tmpread {	Line 1548 sub tmpread {

Determine the value of a parameter.	Determine the value of a parameter.

Inputs: $what, the parameter needed, $safeeval, the safe space	Inputs: $what, the parameter needed, $sheet, the safe space

Returns: The value of a parameter, or '' if none.	Returns: The value of a parameter, or '' if none.

Line 1628 this user and course.	Line 1564 this user and course.
##################################################	##################################################
##################################################	##################################################
sub parmval {	sub parmval {
my ($what,$safeeval,$sheetdata)=@_;	my ($what,$sheet)=@_;
my $symb = $sheetdata->{'usymb'};	my $symb = $sheet->{'usymb'};
unless ($symb) { return ''; }	unless ($symb) { return ''; }
#	#
my $cid = $sheetdata->{'cid'};	my $cid = $sheet->{'cid'};
my $csec = $sheetdata->{'csec'};	my $csec = $sheet->{'csec'};
my $uname = $sheetdata->{'uname'};	my $uname = $sheet->{'uname'};
my $udom = $sheetdata->{'udom'};	my $udom = $sheet->{'udom'};
my $result='';	my $result='';
#	#
my ($mapname,$id,$fn)=split(/\_\_\_/,$symb);	my ($mapname,$id,$fn)=split(/\_\_\_/,$symb);
Line 1656 sub parmval {	Line 1592 sub parmval {
my $courselevelr = $usercourseprefix.'.'.$symbparm;	my $courselevelr = $usercourseprefix.'.'.$symbparm;
my $courselevelm = $usercourseprefix.'.'.$mapparm;	my $courselevelm = $usercourseprefix.'.'.$mapparm;
# fourth, check user	# fourth, check user
if ($uname) {	if (defined($uname)) {
return $useropt{$courselevelr} if ($useropt{$courselevelr});	return $useropt{$courselevelr} if (defined($useropt{$courselevelr}));
return $useropt{$courselevelm} if ($useropt{$courselevelm});	return $useropt{$courselevelm} if (defined($useropt{$courselevelm}));
return $useropt{$courselevel} if ($useropt{$courselevel});	return $useropt{$courselevel} if (defined($useropt{$courselevel}));
}	}
# third, check course	# third, check course
if ($csec) {	if (defined($csec)) {
return $courseopt{$seclevelr} if ($courseopt{$seclevelr});	return $courseopt{$seclevelr} if (defined($courseopt{$seclevelr}));
return $courseopt{$seclevelm} if ($courseopt{$seclevelm});	return $courseopt{$seclevelm} if (defined($courseopt{$seclevelm}));
return $courseopt{$seclevel} if ($courseopt{$seclevel});	return $courseopt{$seclevel} if (defined($courseopt{$seclevel}));
}	}
#	#
return $courseopt{$courselevelr} if ($courseopt{$courselevelr});	return $courseopt{$courselevelr} if (defined($courseopt{$courselevelr}));
return $courseopt{$courselevelm} if ($courseopt{$courselevelm});	return $courseopt{$courselevelm} if (defined($courseopt{$courselevelm}));
return $courseopt{$courselevel} if ($courseopt{$courselevel});	return $courseopt{$courselevel} if (defined($courseopt{$courselevel}));
# second, check map parms	# second, check map parms
my $thisparm = $parmhash{$symbparm};	my $thisparm = $parmhash{$symbparm};
return $thisparm if ($thisparm);	return $thisparm if (defined($thisparm));
# first, check default	# first, check default
return &Apache::lonnet::metadata($fn,$rwhat.'.default');	return &Apache::lonnet::metadata($fn,$rwhat.'.default');
}	}

	sub format_rowlabel {
	my $rowlabel = shift;
	my ($type,$labeldata) = split(':',$rowlabel,2);
	my $result = '';
	if ($type eq 'symb') {
	my ($symb,$uname,$udom,$title) = split(':',$labeldata);
	$symb = &Apache::lonnet::unescape($symb);
	if ($ENV{'form.showcsv'}) {
	$result = $title;
	} else {
	$result = '<a href="/adm/assesscalc?usymb='.$symb.
	'&uname='.$uname.'&udom='.$udom.'">'.$title.'</a>';
	}
	} elsif ($type eq 'student') {
	my ($sname,$sdom,$fullname,$section,$id) = split(':',$labeldata);
	if ($ENV{'form.showcsv'}) {
	$result = '"'.
	join('","',($sname,$sdom,$fullname,$section,$id).'"');
	} else {
	$result ='<a href="/adm/studentcalc?uname='.$sname.
	'&udom='.$sdom.'">';
	$result.=$section.' '.$id." ".$fullname.'</a>';
	}
	} elsif ($type eq 'parameter') {
	if ($ENV{'form.showcsv'}) {
	$labeldata =~ s/<br>/ /g;
	}
	$result = $labeldata;
	} else {
	&Apache::lonnet::logthis("lonspreadsheet:bogus rowlabel type: $type");
	}
	return $result;
	}

# ---------------------------------------------- Update rows for course listing	# ---------------------------------------------- Update rows for course listing
sub updateclasssheet {	sub updateclasssheet {
my $safeeval=shift;	my ($sheet) = @_;
my $cnum=&getcnum($safeeval);	my $cnum =$sheet->{'cnum'};
my $cdom=&getcdom($safeeval);	my $cdom =$sheet->{'cdom'};
my $cid=&getcid($safeeval);	my $cid =$sheet->{'cid'};
my $chome=&getchome($safeeval);	my $chome =$sheet->{'chome'};
	#
	%Section = ();

#	#
# Read class list and row labels	# Read class list and row labels
my %classlist;	my $classlist = &Apache::loncoursedata::get_classlist();
my @tmp = &Apache::lonnet::dump('classlist',$cdom,$cnum);	if (! defined($classlist)) {
if ($tmp[0] !~ /^error/) {	return 'Could not access course classlist';
%classlist = @tmp;	}
} else {
return 'Could not access course data';
}
undef @tmp;
#	#
my %currentlist=();	my %currentlist=();
my $now=time;	foreach my $student (keys(%$classlist)) {
foreach my $student (keys(%classlist)) {	my ($studentDomain,$studentName,$end,$start,$id,$studentSection,
my ($end,$start)=split(/\:/,$classlist{$student});	$fullname,$status) = @{$classlist->{$student}};
my $active=1;	if ($ENV{'form.Status'} eq $status \|\| $ENV{'form.Status'} eq 'Any') {
$active = 0 if (($end) && ($now>$end));	$currentlist{$student}=join(':',('student',$studentName,
$active = 1 if ($ENV{'form.Status'} eq 'Any');	$studentDomain,$fullname,
$active = !$active if ($ENV{'form.Status'} eq 'Expired');	$studentSection,$id));
if ($active) {	}
my $rowlabel='';	}
my ($studentName,$studentDomain)=split(/\:/,$student);
my $studentSection=&Apache::lonnet::usection($studentDomain,
$studentName,$cid);
if ($studentSection==-1) {
unless ($ENV{'form.showcsv'}) {
$rowlabel='<font color=red>Data not available: '.
$studentName.'</font>';
} else {
$rowlabel='ERROR","'.$studentName.
'","Data not available","","","';
}
} else {
my %reply=&Apache::lonnet::idrget($studentDomain,$studentName);
my %studentInformation=&Apache::lonnet::get
('environment',
['lastname','generation','firstname','middlename','id'],
$studentDomain,$studentName);
if (! $ENV{'form.showcsv'}) {
$rowlabel='<a href="/adm/studentcalc?uname='.$studentName.
'&udom='.$studentDomain.'">'.
$studentSection.' ';
foreach ('id','firstname','middlename',
'lastname','generation'){
$rowlabel.=$studentInformation{$_}." ";
}
$rowlabel.='</a>';
} else {
$rowlabel= '"'.join('","',
($studentSection,
$studentInformation{'id'},
$studentInformation{'firstname'},
$studentInformation{'middlename'},
$studentInformation{'lastname'},
$studentInformation{'generation'})
).'"';
}
}
$currentlist{$student}=$rowlabel;
} # end of if ($active)
} # end of foreach my $student (keys(%classlist))
#	#
# Find discrepancies between the course row table and this	# Find discrepancies between the course row table and this
#	#
my %f=&getformulas($safeeval);	my %f=&getformulas($sheet);
my $changed=0;	my $changed=0;
#	#
my $maxrow=0;	$sheet->{'maxrow'}=0;
my %existing=();	my %existing=();
#	#
# Now obsolete rows	# Now obsolete rows
foreach (keys(%f)) {	foreach (keys(%f)) {
if ($_=~/^A(\d+)/) {	if ($_=~/^A(\d+)/) {
$maxrow=($1>$maxrow)?$1:$maxrow;	if ($1 > $sheet->{'maxrow'}) {
	$sheet->{'maxrow'}= $1;
	}
$existing{$f{$_}}=1;	$existing{$f{$_}}=1;
unless ((defined($currentlist{$f{$_}})) \|\| (!$1) \|\|	unless ((defined($currentlist{$f{$_}})) \|\| (!$1) \|\|
($f{$_}=~/^(\~\~\~\|\-\-\-)/)) {	($f{$_}=~/^(~~~\|---)/)) {
$f{$_}='!!! Obsolete';	$f{$_}='!!! Obsolete';
$changed=1;	$changed=1;
}	}
Line 1769 sub updateclasssheet {	Line 1700 sub updateclasssheet {
}	}
#	#
# New and unknown keys	# New and unknown keys
foreach (sort keys(%currentlist)) {	foreach my $student (sort keys(%currentlist)) {
unless ($existing{$_}) {	unless ($existing{$student}) {
$changed=1;	$changed=1;
$maxrow++;	$sheet->{'maxrow'}++;
$f{'A'.$maxrow}=$_;	$f{'A'.$sheet->{'maxrow'}}=$student;
}	}
}	}
if ($changed) { &setformulas($safeeval,%f); }	if ($changed) {
	$sheet->{'f'} = \%f;
	&setformulas($sheet,%f);
	}
#	#
&setmaxrow($safeeval,$maxrow);	&setrowlabels($sheet,\%currentlist);
&setrowlabels($safeeval,%currentlist);
}	}

# ----------------------------------- Update rows for student and assess sheets	# ----------------------------------- Update rows for student and assess sheets
sub updatestudentassesssheet {	sub updatestudentassesssheet {
my $safeeval=shift;	my ($sheet) = @_;
	#
my %bighash;	my %bighash;
my $stype=&gettype($safeeval);	#
my %current=();	my $stype = $sheet->{'sheettype'};
if ($updatedata{$ENV{'request.course.fn'}.'_'.$stype}) {	my $uname = $sheet->{'uname'};
%current=split(/\_\_\_\;\_\_\_/,	my $udom = $sheet->{'udom'};
$updatedata{$ENV{'request.course.fn'}.'_'.$stype});	$sheet->{'rowlabel'} = {};
	my $identifier =$sheet->{'coursefilename'}.'_'.$stype.'_'.$uname.'_'.$udom;
	if ($updatedata{$identifier}) {
	%{$sheet->{'rowlabel'}}=split(/___;___/,$updatedata{$identifier});
} else {	} else {
# Tie hash	# Tie hash
tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db',	tie(%bighash,'GDBM_File',$sheet->{'coursefilename'}.'.db',
&GDBM_READER(),0640);	&GDBM_READER(),0640);
if (! tied(%bighash)) {	if (! tied(%bighash)) {
return 'Could not access course data';	return 'Could not access course data';
}	}
# Get all assessments	# Get all assessments
my %allkeys=('timestamp' =>	#
'Timestamp of Last Transaction<br>timestamp',	# parameter_labels is used in the assessment sheets to provide labels
'subnumber' =>	# for the parameters.
'Number of Submissions<br>subnumber',	my %parameter_labels=
'tutornumber' =>	('timestamp' =>
'Number of Tutor Responses<br>tutornumber',	'parameter:Timestamp of Last Transaction<br>timestamp',
'totalpoints' =>	'subnumber' =>
'Total Points Granted<br>totalpoints');	'parameter:Number of Submissions<br>subnumber',
my $adduserstr='';	'tutornumber' =>
if ((&getuname($safeeval) ne $ENV{'user.name'}) \|\|	'parameter:Number of Tutor Responses<br>tutornumber',
(&getudom($safeeval) ne $ENV{'user.domain'})) {	'totalpoints' =>
$adduserstr='&uname='.&getuname($safeeval).	'parameter:Total Points Granted<br>totalpoints');
'&udom='.&getudom($safeeval);	#
}	# assesslist holds the descriptions of all assessments
my %allassess =	my %assesslist;
('_feedback' =>'<a href="/adm/assesscalc?usymb=_feedback'.	foreach ('Feedback','Evaluation','Tutoring','Discussion') {
$adduserstr.'">Feedback</a>',	my $symb = '_'.lc($_);
'_evaluation' =>'<a href="/adm/assesscalc?usymb=_evaluation'.	$assesslist{$symb} = join(':',('symb',$symb,$uname,$udom,$_));
$adduserstr.'">Evaluation</a>',	}
'_tutoring' =>'<a href="/adm/assesscalc?usymb=_tutoring'.
$adduserstr.'">Tutoring</a>',
'_discussion' =>'<a href="/adm/assesscalc?usymb=_discussion'.
$adduserstr.'">Discussion</a>'
);
while (($_,undef) = each(%bighash)) {	while (($_,undef) = each(%bighash)) {
next if ($_!~/^src\_(\d+)\.(\d+)$/);	next if ($_!~/^src\_(\d+)\.(\d+)$/);
my $mapid=$1;	my $mapid=$1;
Line 1833 sub updatestudentassesssheet {	Line 1765 sub updatestudentassesssheet {
my $symb=	my $symb=
&Apache::lonnet::declutter($bighash{'map_id_'.$mapid}).	&Apache::lonnet::declutter($bighash{'map_id_'.$mapid}).
'___'.$resid.'___'.&Apache::lonnet::declutter($srcf);	'___'.$resid.'___'.&Apache::lonnet::declutter($srcf);
$allassess{$symb}=	$assesslist{$symb}='symb:'.&Apache::lonnet::escape($symb).':'
'<a href="/adm/assesscalc?usymb='.$symb.$adduserstr.'">'.	.$uname.':'.$udom.':'.$bighash{'title_'.$id};
$bighash{'title_'.$id}.'</a>';
next if ($stype ne 'assesscalc');	next if ($stype ne 'assesscalc');
foreach my $key (split(/\,/,	foreach my $key (split(/\,/,
&Apache::lonnet::metadata($srcf,'keys')	&Apache::lonnet::metadata($srcf,'keys')
Line 1848 sub updatestudentassesssheet {	Line 1779 sub updatestudentassesssheet {
&Apache::lonnet::metadata($srcf,$key.'.name');	&Apache::lonnet::metadata($srcf,$key.'.name');
}	}
$display.='<br>'.$key;	$display.='<br>'.$key;
$allkeys{$key}=$display;	$parameter_labels{$key}='parameter:'.$display;
} # end of foreach	} # end of foreach
}	}
} # end of foreach (keys(%bighash))	} # end of foreach (keys(%bighash))
untie(%bighash);	untie(%bighash);
#	#
# %allkeys has a list of storage and parameter displays by unikey	# %parameter_labels has a list of storage and parameter displays by
# %allassess has a list of all resource displays by symb	# unikey
	# %assesslist has a list of all resource, by symb
#	#
if ($stype eq 'assesscalc') {	if ($stype eq 'assesscalc') {
%current=%allkeys;	$sheet->{'rowlabel'} = \%parameter_labels;
} elsif ($stype eq 'studentcalc') {	} elsif ($stype eq 'studentcalc') {
%current=%allassess;	$sheet->{'rowlabel'} = \%assesslist;
}	}
$updatedata{$ENV{'request.course.fn'}.'_'.$stype}=	$updatedata{$sheet->{'coursefilename'}.'_'.$stype.'_'
join('___;___',%current);	.$uname.'_'.$udom}=
	join('___;___',%{$sheet->{'rowlabel'}});
# Get current from cache	# Get current from cache
}	}
# Find discrepancies between the course row table and this	# Find discrepancies between the course row table and this
#	#
my %f=&getformulas($safeeval);	my %f=&getformulas($sheet);
my $changed=0;	my $changed=0;

my $maxrow=0;	$sheet->{'maxrow'} = 0;
my %existing=();	my %existing=();
# Now obsolete rows	# Now obsolete rows
foreach (keys(%f)) {	foreach (keys(%f)) {
next if ($_!~/^A(\d+)/);	next if ($_!~/^A(\d+)/);
$maxrow=($1>$maxrow)?$1:$maxrow;	if ($1 > $sheet->{'maxrow'}) {
my ($usy,$ufn)=split(/\_\_\&\&\&\_\_/,$f{$_});	$sheet->{'maxrow'} = $1;
	}
	my ($usy,$ufn)=split(/__&&&\__/,$f{$_});
$existing{$usy}=1;	$existing{$usy}=1;
unless ((defined($current{$usy})) \|\| (!$1) \|\|	unless ((exists($sheet->{'rowlabel'}->{$usy}) &&
($f{$_}=~/^(\~\~\~\|\-\-\-)/)){	(defined($sheet->{'rowlabel'}->{$usy})) \|\| (!$1) \|\|
	($f{$_}=~/^(~~~\|---)/))){
$f{$_}='!!! Obsolete';	$f{$_}='!!! Obsolete';
$changed=1;	$changed=1;
} elsif ($ufn) {	} elsif ($ufn) {
$current{$usy}	$sheet->{'rowlabel'}->{$usy}
=~s/assesscalc\?usymb\=/assesscalc\?ufn\=$ufn\&usymb\=/;	=~s/assesscalc\?usymb\=/assesscalc\?ufn\=$ufn\&usymb\=/;
}	}
}	}
# New and unknown keys	# New and unknown keys
foreach (keys(%current)) {	foreach (keys(%{$sheet->{'rowlabel'}})) {
unless ($existing{$_}) {	unless ($existing{$_}) {
$changed=1;	$changed=1;
$maxrow++;	$sheet->{'maxrow'}++;
$f{'A'.$maxrow}=$_;	$f{'A'.$sheet->{'maxrow'}}=$_;
}	}
}	}
if ($changed) { &setformulas($safeeval,%f); }	if ($changed) {
&setmaxrow($safeeval,$maxrow);	$sheet->{'f'} = \%f;
&setrowlabels($safeeval,%current);	&setformulas($sheet);
	}
#	#
undef %current;
undef %existing;	undef %existing;
}	}

# ------------------------------------------------ Load data for one assessment	# ------------------------------------------------ Load data for one assessment

sub loadstudent {	sub loadstudent {
my ($safeeval,$sheetdata)=@_;	my ($sheet)=@_;
my %c=();	my %c=();
my %f=&getformulas($safeeval);	my %f=&getformulas($sheet);
$cachedassess=$sheetdata->{'uname'}.':'.$sheetdata->{'udom'};	$cachedassess=$sheet->{'uname'}.':'.$sheet->{'udom'};
# Get ALL the student preformance data	# Get ALL the student preformance data
my @tmp = &Apache::lonnet::dump($sheetdata->{'cid'},	my @tmp = &Apache::lonnet::dump($sheet->{'cid'},
$sheetdata->{'udom'},	$sheet->{'udom'},
$sheetdata->{'uname'},	$sheet->{'uname'},
undef);	undef);
if ($tmp[0] !~ /^error:/) {	if ($tmp[0] !~ /^error:/) {
%cachedstores = @tmp;	%cachedstores = @tmp;
Line 1927 sub loadstudent {	Line 1863 sub loadstudent {
my $row=$1;	my $row=$1;
next if (($f{$_}=~/^[\!\~\-]/) \|\| ($row==0));	next if (($f{$_}=~/^[\!\~\-]/) \|\| ($row==0));
my ($usy,$ufn)=split(/__&&&\__/,$f{$_});	my ($usy,$ufn)=split(/__&&&\__/,$f{$_});
@assessdata=&exportsheet($sheetdata->{'uname'},	@assessdata=&exportsheet($sheet,$sheet->{'uname'},
$sheetdata->{'udom'},	$sheet->{'udom'},
'assesscalc',$usy,$ufn);	'assesscalc',$usy,$ufn);
my $index=0;	my $index=0;
foreach ('A','B','C','D','E','F','G','H','I','J','K','L','M',	foreach ('A','B','C','D','E','F','G','H','I','J','K','L','M',
Line 1949 sub loadstudent {	Line 1885 sub loadstudent {
}	}
$cachedassess='';	$cachedassess='';
undef %cachedstores;	undef %cachedstores;
&setformulas($safeeval,%f);	$sheet->{'f'} = \%f;
&setconstants($safeeval,%c);	&setformulas($sheet);
	&setconstants($sheet,\%c);
}	}

# --------------------------------------------------- Load data for one student	# --------------------------------------------------- Load data for one student
	#
sub loadcourse {	sub loadcourse {
my ($safeeval,$sheetdata,$r)=@_;	my ($sheet,$r)=@_;
my %c=();	my %c=();
my %f=&getformulas($safeeval);	my %f=&getformulas($sheet);
my $total=0;	my $total=0;
foreach (keys(%f)) {	foreach (keys(%f)) {
if ($_=~/^A(\d+)/) {	if ($_=~/^A(\d+)/) {
Line 1983 ENDPOP	Line 1920 ENDPOP
next if ($_!~/^A(\d+)/);	next if ($_!~/^A(\d+)/);
my $row=$1;	my $row=$1;
next if (($f{$_}=~/^[\!\~\-]/) \|\| ($row==0));	next if (($f{$_}=~/^[\!\~\-]/) \|\| ($row==0));
my @studentdata=&exportsheet(split(/\:/,$f{$_}),	my ($sname,$sdom) = split(':',$f{$_});
'studentcalc');	my @studentdata=&exportsheet($sheet,$sname,$sdom,'studentcalc');
undef %userrdatas;	undef %userrdatas;
$now++;	$now++;
$r->print('<script>popwin.document.popremain.remaining.value="'.	$r->print('<script>popwin.document.popremain.remaining.value="'.
Line 1995 ENDPOP	Line 1932 ENDPOP
my $index=0;	my $index=0;
foreach ('A','B','C','D','E','F','G','H','I','J','K','L','M',	foreach ('A','B','C','D','E','F','G','H','I','J','K','L','M',
'N','O','P','Q','R','S','T','U','V','W','X','Y','Z') {	'N','O','P','Q','R','S','T','U','V','W','X','Y','Z') {
if ($studentdata[$index]) {	if (defined($studentdata[$index++])) {
my $col=$_;	my $col=$_;
if ($studentdata[$index]=~/\D/) {	if ($studentdata[$index]=~/\D/) {
$c{$col.$row}="'".$studentdata[$index]."'";	$c{$col.$row}="'".$studentdata[$index]."'";
Line 2005 ENDPOP	Line 1942 ENDPOP
unless ($col eq 'A') {	unless ($col eq 'A') {
$f{$col.$row}='import';	$f{$col.$row}='import';
}	}
$index++;
}	}
}	}
}	}
&setformulas($safeeval,%f);	$sheet->{'f'}=\%f;
&setconstants($safeeval,%c);	&setformulas($sheet);
	&setconstants($sheet,\%c);
$r->print('<script>popwin.close()</script>');	$r->print('<script>popwin.close()</script>');
$r->rflush();	$r->rflush();
}	}

# ------------------------------------------------ Load data for one assessment	# ------------------------------------------------ Load data for one assessment
	#
sub loadassessment {	sub loadassessment {
my ($safeeval,$sheetdata)=@_;	my ($sheet)=@_;

my $uhome = $sheetdata->{'uhome'};	my $uhome = $sheet->{'uhome'};
my $uname = $sheetdata->{'uname'};	my $uname = $sheet->{'uname'};
my $udom = $sheetdata->{'udom'};	my $udom = $sheet->{'udom'};
my $symb = $sheetdata->{'usymb'};	my $symb = $sheet->{'usymb'};
my $cid = $sheetdata->{'cid'};	my $cid = $sheet->{'cid'};
my $cnum = $sheetdata->{'cnum'};	my $cnum = $sheet->{'cnum'};
my $cdom = $sheetdata->{'cdom'};	my $cdom = $sheet->{'cdom'};
my $chome = $sheetdata->{'chome'};	my $chome = $sheet->{'chome'};

my $namespace;	my $namespace;
unless ($namespace=$cid) { return ''; }	unless ($namespace=$cid) { return ''; }
Line 2048 sub loadassessment {	Line 1985 sub loadassessment {
#	#
# restore individual	# restore individual
#	#
my $answer=&Apache::lonnet::reply(	%returnhash = &Apache::lonnet::restore($symb,$namespace,$udom,$uname);
"restore:$udom:$uname:".	for (my $version=1;$version<=$returnhash{'version'};$version++) {
&Apache::lonnet::escape($namespace).":".
&Apache::lonnet::escape($symb),$uhome);
foreach (split(/\&/,$answer)) {
my ($name,$value)=split(/\=/,$_);
$returnhash{&Apache::lonnet::unescape($name)}=
&Apache::lonnet::unescape($value);
}
my $version;
for ($version=1;$version<=$returnhash{'version'};$version++) {
foreach (split(/\:/,$returnhash{$version.':keys'})) {	foreach (split(/\:/,$returnhash{$version.':keys'})) {
$returnhash{$_}=$returnhash{$version.':'.$_};	$returnhash{$_}=$returnhash{$version.':'.$_};
}	}
}	}
}	}
	#
# returnhash now has all stores for this resource	# returnhash now has all stores for this resource
# convert all "_" to "." to be able to use libraries, multiparts, etc	# convert all "_" to "." to be able to use libraries, multiparts, etc
	#
	# This is dumb. It is also necessary :(
my @oldkeys=keys %returnhash;	my @oldkeys=keys %returnhash;
	#
foreach (@oldkeys) {	foreach my $name (@oldkeys) {
my $name=$_;	my $value=$returnhash{$name};
my $value=$returnhash{$_};	delete $returnhash{$name};
delete $returnhash{$_};
$name=~s/\_/\./g;	$name=~s/\_/\./g;
$returnhash{$name}=$value;	$returnhash{$name}=$value;
}	}
Line 2080 sub loadassessment {	Line 2010 sub loadassessment {
undef %useropt;	undef %useropt;

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

unless ($uhome eq 'no_host') {	unless ($uhome eq 'no_host') {
# Get coursedata	# Get coursedata
unless ((time-$courserdatas{$cid.'.last_cache'})<240) {	unless ((time-$courserdatas{$cid.'.last_cache'})<240) {
my $reply=&Apache::lonnet::reply('dump:'.$cdom.':'.$cnum.	my %Tmp = &Apache::lonnet::dump('resourcedata',$cdom,$cnum);
':resourcedata',$chome);	$courserdatas{$cid}=\%Tmp;
if ($reply!~/^error\:/) {	$courserdatas{$cid.'.last_cache'}=time;
$courserdatas{$cid}=$reply;
$courserdatas{$cid.'.last_cache'}=time;
}
}	}
foreach (split(/\&/,$courserdatas{$cid})) {	while (my ($name,$value) = each(%{$courserdatas{$cid}})) {
my ($name,$value)=split(/\=/,$_);	$courseopt{$userprefix.$name}=$value;
$courseopt{$userprefix.&Apache::lonnet::unescape($name)}=
&Apache::lonnet::unescape($value);
}	}
# Get userdata (if present)	# Get userdata (if present)
unless	unless ((time-$userrdatas{$uname.'@'.$udom.'.last_cache'})<240) {
((time-$userrdatas{$uname.'___'.$udom.'.last_cache'})<240) {	my %Tmp = &Apache::lonnet::dump('resourcedata',$udom,$uname);
my $reply=	$userrdatas{$cid} = \%Tmp;
&Apache::lonnet::reply('dump:'.$udom.':'.$uname.':resourcedata',$uhome);	# Most of the time the user does not have a 'resourcedata.db'
if ($reply!~/^error\:/) {	# file. We need to cache that we got nothing instead of bothering
$userrdatas{$uname.'___'.$udom}=$reply;	# with requesting it every time.
$userrdatas{$uname.'___'.$udom.'.last_cache'}=time;	$userrdatas{$uname.'@'.$udom.'.last_cache'}=time;
}	}
}	while (my ($name,$value) = each(%{$userrdatas{$cid}})) {
foreach (split(/\&/,$userrdatas{$uname.'___'.$udom})) {	$useropt{$userprefix.$name}=$value;
my ($name,$value)=split(/\=/,$_);
$useropt{$userprefix.&Apache::lonnet::unescape($name)}=
&Apache::lonnet::unescape($value);
}	}
}	}
# now courseopt, useropt initialized for this user and course	# now courseopt, useropt initialized for this user and course
Line 2127 sub loadassessment {	Line 2049 sub loadassessment {
#	#
my %c=();	my %c=();
if (tie(%parmhash,'GDBM_File',	if (tie(%parmhash,'GDBM_File',
&getcfn($safeeval).'_parms.db',&GDBM_READER(),0640)) {	$sheet->{'coursefilename'}.'_parms.db',&GDBM_READER(),0640)) {
my %f=&getformulas($safeeval);	my %f=&getformulas($sheet);
foreach (keys(%f)) {	foreach my $cell (keys(%f)) {
next if ($_!~/^A/);	next if ($cell !~ /^A/);
next if ($f{$_}=~/^[\!\~\-]/);	next if ($f{$cell} =~/^[\!\~\-]/);
if ($f{$_}=~/^parameter/) {	if ($f{$cell}=~/^parameter/) {
if ($thisassess{$f{$_}}) {	if (defined($thisassess{$f{$cell}})) {
my $val=&parmval($f{$_},$safeeval,$sheetdata);	my $val = &parmval($f{$cell},$sheet);
$c{$_}=$val;	$c{$cell} = $val;
$c{$f{$_}}=$val;	$c{$f{$cell}} = $val;
}	}
} else {	} else {
my $key=$f{$_};	my $key=$f{$cell};
my $ckey=$key;	my $ckey=$key;
$key=~s/^stores\_/resource\./;	$key=~s/^stores\_/resource\./;
$key=~s/\_/\./g;	$key=~s/\_/\./g;
$c{$_}=$returnhash{$key};	$c{$cell}=$returnhash{$key};
$c{$ckey}=$returnhash{$key};	$c{$ckey}=$returnhash{$key};
}	}
}	}
untie(%parmhash);	untie(%parmhash);
}	}
&setconstants($safeeval,%c);	&setconstants($sheet,\%c);
}	}

# --------------------------------------------------------- Various form fields	# --------------------------------------------------------- Various form fields
Line 2182 sub selectbox {	Line 2104 sub selectbox {
#	#

sub updatesheet {	sub updatesheet {
my ($safeeval,$sheetdata)=@_;	my ($sheet)=@_;
my $stype=$sheetdata->{'sheettype'};	my $stype=$sheet->{'sheettype'};
if ($stype eq 'classcalc') {	if ($stype eq 'classcalc') {
return &updateclasssheet($safeeval);	return &updateclasssheet($sheet);
} else {	} else {
return &updatestudentassesssheet($safeeval);	return &updatestudentassesssheet($sheet);
}	}
}	}

Line 2197 sub updatesheet {	Line 2119 sub updatesheet {
#	#

sub loadrows {	sub loadrows {
my ($safeeval,$sheetdata,$r)=@_;	my ($sheet,$r)=@_;
my $stype=$sheetdata->{'sheettype'};	my $stype=$sheet->{'sheettype'};
if ($stype eq 'classcalc') {	if ($stype eq 'classcalc') {
&loadcourse($safeeval,$sheetdata,$r);	&loadcourse($sheet,$r);
} elsif ($stype eq 'studentcalc') {	} elsif ($stype eq 'studentcalc') {
&loadstudent($safeeval,$sheetdata);	&loadstudent($sheet);
} else {	} else {
&loadassessment($safeeval,$sheetdata);	&loadassessment($sheet);
}	}
}	}

Line 2222 sub forcedrecalc {	Line 2144 sub forcedrecalc {
if ($ENV{'form.forcerecalc'}) { return 1; }	if ($ENV{'form.forcerecalc'}) { return 1; }
unless ($time) { return 1; }	unless ($time) { return 1; }
if ($stype eq 'assesscalc') {	if ($stype eq 'assesscalc') {
my $map=(split(/\_\_\_/,$usymb))[0];	my $map=(split(/___/,$usymb))[0];
if (&checkthis('::assesscalc:',$time) \|\|	if (&checkthis('::assesscalc:',$time) \|\|
&checkthis('::assesscalc:'.$map,$time) \|\|	&checkthis('::assesscalc:'.$map,$time) \|\|
&checkthis('::assesscalc:'.$usymb,$time) \|\|	&checkthis('::assesscalc:'.$usymb,$time) \|\|
Line 2241 sub forcedrecalc {	Line 2163 sub forcedrecalc {
}	}

# ============================================================== Export handler	# ============================================================== Export handler
	# exportsheet
	# returns the export row for a spreadsheet.
#	#
# Non-interactive call from with program
#

sub exportsheet {	sub exportsheet {
my ($uname,$udom,$stype,$usymb,$fn)=@_;	my ($sheet,$uname,$udom,$stype,$usymb,$fn)=@_;
	$uname = $uname \|\| $sheet->{'uname'};
	$udom = $udom \|\| $sheet->{'udom'};
	$stype = $stype \|\| $sheet->{'sheettype'};
my @exportarr=();	my @exportarr=();
if (($usymb=~/^\_(\w+)/) && (!$fn)) {	if (defined($usymb) && ($usymb=~/^\_(\w+)/) && (!$fn)) {
$fn='default_'.$1;	$fn='default_'.$1;
}	}
#	#
Line 2257 sub exportsheet {	Line 2181 sub exportsheet {
my $key=$uname.':'.$udom.':'.$stype.':'.$usymb;	my $key=$uname.':'.$udom.':'.$stype.':'.$usymb;
my $found='';	my $found='';
if ($oldsheets{$key}) {	if ($oldsheets{$key}) {
foreach (split(/\_\_\_\&\_\_\_/,$oldsheets{$key})) {	foreach (split(/___&\___/,$oldsheets{$key})) {
my ($name,$value)=split(/\_\_\_\=\_\_\_/,$_);	my ($name,$value)=split(/___=___/,$_);
if ($name eq $fn) {	if ($name eq $fn) {
$found=$value;	$found=$value;
}	}
}	}
}	}
unless ($found) {	unless ($found) {
&cachedssheets($uname,$udom,&Apache::lonnet::homeserver($uname,$udom));	&cachedssheets($sheet,$uname,$udom);
if ($oldsheets{$key}) {	if ($oldsheets{$key}) {
foreach (split(/\_\_\_\&\_\_\_/,$oldsheets{$key})) {	foreach (split(/___&\___/,$oldsheets{$key})) {
my ($name,$value)=split(/\_\_\_\=\_\_\_/,$_);	my ($name,$value)=split(/___=___/,$_);
if ($name eq $fn) {	if ($name eq $fn) {
$found=$value;	$found=$value;
}	}
Line 2287 sub exportsheet {	Line 2211 sub exportsheet {
#	#
# Return what was cached	# Return what was cached
#	#
@exportarr=split(/\_\_\_\;\_\_\_/,$found);	@exportarr=split(/___;___/,$found);
} else {	return @exportarr;
#	}
# Not cached	#
#	# Not cached
my ($thissheet,$sheetdata)=&makenewsheet($uname,$udom,$stype,$usymb);	#
&readsheet($thissheet,$sheetdata,$fn);	my ($newsheet)=&makenewsheet($uname,$udom,$stype,$usymb);
&updatesheet($thissheet,$sheetdata);	&readsheet($newsheet,$fn);
&loadrows($thissheet,$sheetdata);	&updatesheet($newsheet);
&calcsheet($thissheet,$sheetdata);	&loadrows($newsheet);
@exportarr=&exportdata($thissheet,$sheetdata);	&calcsheet($newsheet);
#	@exportarr=&exportdata($newsheet);
# Store now	##
#	## Store now
my $cid=$ENV{'request.course.id'};	##
my $current='';	#
if ($stype eq 'studentcalc') {	# load in the old value
$current=&Apache::lonnet::reply('get:'.	#
$ENV{'course.'.$cid.'.domain'}.':'.	my %currentlystored=();
$ENV{'course.'.$cid.'.num'}.	if ($stype eq 'studentcalc') {
':nohist_calculatedsheets:'.	my @tmp = &Apache::lonnet::get('nohist_calculatedsheets',
&Apache::lonnet::escape($key),	[$key],
$ENV{'course.'.$cid.'.home'});	$sheet->{'cdom'},$sheet->{'cnum'});
} else {	if ($tmp[0]!~/^error/) {
$current=&Apache::lonnet::reply('get:'.$sheetdata->{'udom'}.':'.	%currentlystored = @tmp;
$sheetdata->{'uname'}.
':nohist_calculatedsheets_'.
$ENV{'request.course.id'}.':'.
&Apache::lonnet::escape($key),
$sheetdata->{'uhome'});
}
my %currentlystored=();
unless ($current=~/^error\:/) {
foreach (split(/___&\___/,&Apache::lonnet::unescape($current))) {
my ($name,$value)=split(/___=___/,$_);
$currentlystored{$name}=$value;
}
}	}
$currentlystored{$fn}=join('___;___',@exportarr);	} else {
#	my @tmp = &Apache::lonnet::get('nohist_calculatedsheets_'.
my $newstore='';	$sheet->{'cid'},[$key],
foreach (keys(%currentlystored)) {	$sheet->{'udom'},$sheet->{'uname'});
if ($newstore) { $newstore.='___&___'; }	if ($tmp[0]!~/^error/) {
$newstore.=$_.'___=___'.$currentlystored{$_};	%currentlystored = @tmp;
}
my $now=time;
if ($stype eq 'studentcalc') {
&Apache::lonnet::reply('put:'.
$ENV{'course.'.$cid.'.domain'}.':'.
$ENV{'course.'.$cid.'.num'}.
':nohist_calculatedsheets:'.
&Apache::lonnet::escape($key).'='.
&Apache::lonnet::escape($newstore).'&'.
&Apache::lonnet::escape($key).'.time='.$now,
$ENV{'course.'.$cid.'.home'});
} else {
&Apache::lonnet::reply('put:'.
$sheetdata->{'udom'}.':'.
$sheetdata->{'uname'}.
':nohist_calculatedsheets_'.
$ENV{'request.course.id'}.':'.
&Apache::lonnet::escape($key).'='.
&Apache::lonnet::escape($newstore).'&'.
&Apache::lonnet::escape($key).'.time='.$now,
$sheetdata->{'uhome'});
}	}
}	}
	#
	# Add the new line
	#
	$currentlystored{$fn}=join('___;___',@exportarr);
	#
	# Stick everything back together
	#
	my $newstore='';
	foreach (keys(%currentlystored)) {
	if ($newstore) { $newstore.='___&___'; }
	$newstore.=$_.'___=___'.$currentlystored{$_};
	}
	my $now=time;
	#
	# Store away the new value
	#
	if ($stype eq 'studentcalc') {
	&Apache::lonnet::put('nohist_calculatedsheets',
	{ $key => $newstore,
	$key.time => $now },
	$sheet->{'cdom'},$sheet->{'cnum'});
	} else {
	&Apache::lonnet::put('nohist_calculatedsheets_'.$sheet->{'cid'},
	{ $key => $newstore,
	$key.time => $now },
	$sheet->{'udom'},
	$sheet->{'uname'})
	}
return @exportarr;	return @exportarr;
}	}

Line 2364 sub exportsheet {	Line 2283 sub exportsheet {
sub expirationdates {	sub expirationdates {
undef %expiredates;	undef %expiredates;
my $cid=$ENV{'request.course.id'};	my $cid=$ENV{'request.course.id'};
my $reply=&Apache::lonnet::reply('dump:'.	my @tmp = &Apache::lonnet::dump('nohist_expirationdates',
$ENV{'course.'.$cid.'.domain'}.':'.	$ENV{'course.'.$cid.'.domain'},
$ENV{'course.'.$cid.'.num'}.	$ENV{'course.'.$cid.'.num'});
':nohist_expirationdates',	if (lc($tmp[0])!~/^error/){
$ENV{'course.'.$cid.'.home'});	%expiredates = @tmp;
unless ($reply=~/^error\:/) {
foreach (split(/\&/,$reply)) {
my ($name,$value)=split(/\=/,$_);
$expiredates{&Apache::lonnet::unescape($name)}
=&Apache::lonnet::unescape($value);
}
}	}
}	}

Line 2385 sub expirationdates {	Line 2298 sub expirationdates {

sub cachedcsheets {	sub cachedcsheets {
my $cid=$ENV{'request.course.id'};	my $cid=$ENV{'request.course.id'};
my $reply=&Apache::lonnet::reply('dump:'.	my @tmp = &Apache::lonnet::dump('nohist_calculatedsheets',
$ENV{'course.'.$cid.'.domain'}.':'.	$ENV{'course.'.$cid.'.domain'},
$ENV{'course.'.$cid.'.num'}.	$ENV{'course.'.$cid.'.num'});
':nohist_calculatedsheets',	if ($tmp[0] !~ /^error/) {
$ENV{'course.'.$cid.'.home'});	my %StupidTempHash = @tmp;
unless ($reply=~/^error\:/) {	while (my ($key,$value) = each %StupidTempHash) {
foreach ( split(/\&/,$reply)) {	$oldsheets{$key} = $value;
my ($name,$value)=split(/\=/,$_);
$oldsheets{&Apache::lonnet::unescape($name)}
=&Apache::lonnet::unescape($value);
}	}
}	}
}	}
Line 2405 sub cachedcsheets {	Line 2315 sub cachedcsheets {
#	#

sub cachedssheets {	sub cachedssheets {
my ($sname,$sdom,$shome)=@_;	my ($sheet,$uname,$udom) = @_;
unless (($loadedcaches{$sname.'_'.$sdom}) \|\| ($shome eq 'no_host')) {	$uname = $uname \|\| $sheet->{'uname'};
my $cid=$ENV{'request.course.id'};	$udom = $udom \|\| $sheet->{'udom'};
my $reply=&Apache::lonnet::reply('dump:'.$sdom.':'.$sname.	if (! $loadedcaches{$sheet->{'uname'}.'_'.$sheet->{'udom'}}) {
':nohist_calculatedsheets_'.	my @tmp = &Apache::lonnet::dump('nohist_calculatedsheets',
$ENV{'request.course.id'},	$sheet->{'udom'},
$shome);	$sheet->{'uname'});
unless ($reply=~/^error\:/) {	if ($tmp[0] !~ /^error/) {
foreach ( split(/\&/,$reply)) {	my %StupidTempHash = @tmp;
my ($name,$value)=split(/\=/,$_);	while (my ($key,$value) = each %StupidTempHash) {
$oldsheets{&Apache::lonnet::unescape($name)}	$oldsheets{$key} = $value;
=&Apache::lonnet::unescape($value);	}
	$loadedcaches{$sheet->{'uname'}.'_'.$sheet->{'udom'}}=1;
}	}
}	}
$loadedcaches{$sname.'_'.$sdom}=1;
}
}	}

# ===================================================== Calculated sheets cache	# ===================================================== Calculated sheets cache
Line 2433 sub cachedssheets {	Line 2342 sub cachedssheets {
# Interactive call to screen	# Interactive call to screen
#	#
#	#


sub handler {	sub handler {
my $r=shift;	my $r=shift;

	if (! exists($ENV{'form.Status'})) {
	$ENV{'form.Status'} = 'Active';
	}
	# Check this server
	my $loaderror=&Apache::lonnet::overloaderror($r);
	if ($loaderror) { return $loaderror; }
	# Check the course homeserver
	$loaderror= &Apache::lonnet::overloaderror($r,
	$ENV{'course.'.$ENV{'request.course.id'}.'.home'});
	if ($loaderror) { return $loaderror; }

if ($r->header_only) {	if ($r->header_only) {
$r->content_type('text/html');	$r->content_type('text/html');
$r->send_http_header;	$r->send_http_header;
Line 2455 sub handler {	Line 2374 sub handler {
# Get query string for limited number of parameters	# Get query string for limited number of parameters
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['uname','udom','usymb','ufn']);	['uname','udom','usymb','ufn']);
	if ($ENV{'request.role'} =~ /^st\./) {
	delete $ENV{'form.unewfield'} if (exists($ENV{'form.unewfield'}));
	delete $ENV{'form.unewformula'} if (exists($ENV{'form.unewformula'}));
	}
if (($ENV{'form.usymb'}=~/^\_(\w+)/) && (!$ENV{'form.ufn'})) {	if (($ENV{'form.usymb'}=~/^\_(\w+)/) && (!$ENV{'form.ufn'})) {
$ENV{'form.ufn'}='default_'.$1;	$ENV{'form.ufn'}='default_'.$1;
}	}
Line 2481 sub handler {	Line 2404 sub handler {
$r->send_http_header;	$r->send_http_header;
# Screen output	# Screen output
$r->print('<html><head><title>LON-CAPA Spreadsheet</title>');	$r->print('<html><head><title>LON-CAPA Spreadsheet</title>');
$r->print(<<ENDSCRIPT);	if ($ENV{'request.role'} !~ /^st\./) {
	$r->print(<<ENDSCRIPT);
<script language="JavaScript">	<script language="JavaScript">

function celledit(cn,cf) {	function celledit(cn,cf) {
Line 2507 sub handler {	Line 2431 sub handler {

</script>	</script>
ENDSCRIPT	ENDSCRIPT
	}
$r->print('</head>'.&Apache::loncommon::bodytag('Grades Spreadsheet').	$r->print('</head>'.&Apache::loncommon::bodytag('Grades Spreadsheet').
'<form action="'.$r->uri.'" name=sheet method=post>');	'<form action="'.$r->uri.'" name=sheet method=post>');
$r->print(&hiddenfield('uname',$ENV{'form.uname'}).	$r->print(&hiddenfield('uname',$ENV{'form.uname'}).
Line 2527 ENDSCRIPT	Line 2452 ENDSCRIPT
}	}
# Read new sheet or modified worksheet	# Read new sheet or modified worksheet
$r->uri=~/\/(\w+)$/;	$r->uri=~/\/(\w+)$/;
my ($asheet,$asheetdata)=&makenewsheet($aname,$adom,$1,$ENV{'form.usymb'});	my ($sheet)=&makenewsheet($aname,$adom,$1,$ENV{'form.usymb'});
#	#
# If a new formula had been entered, go from work copy	# If a new formula had been entered, go from work copy
if ($ENV{'form.unewfield'}) {	if ($ENV{'form.unewfield'}) {
Line 2535 ENDSCRIPT	Line 2460 ENDSCRIPT
$ENV{'form.unewformula'}=~s/\'/\"/g;	$ENV{'form.unewformula'}=~s/\'/\"/g;
$r->print('<p>New formula: '.$ENV{'form.unewfield'}.'='.	$r->print('<p>New formula: '.$ENV{'form.unewfield'}.'='.
$ENV{'form.unewformula'}.'<p>');	$ENV{'form.unewformula'}.'<p>');
&setfilename($asheet,$ENV{'form.ufn'});	$sheet->{'filename'} = $ENV{'form.ufn'};
&tmpread($asheet,$ENV{'form.unewfield'},$ENV{'form.unewformula'});	&tmpread($sheet,$ENV{'form.unewfield'},$ENV{'form.unewformula'});
} elsif ($ENV{'form.saveas'}) {	} elsif ($ENV{'form.saveas'}) {
&setfilename($asheet,$ENV{'form.ufn'});	$sheet->{'filename'} = $ENV{'form.ufn'};
&tmpread($asheet);	&tmpread($sheet);
} else {	} else {
&readsheet($asheet,$asheetdata,$ENV{'form.ufn'});	&readsheet($sheet,$ENV{'form.ufn'});
}	}
# Print out user information	# Print out user information
unless ($asheetdata->{'sheettype'} eq 'classcalc') {	if ($sheet->{'sheettype'} ne 'classcalc') {
$r->print('<p><b>User:</b> '.$asheetdata->{'uname'}.	$r->print('<p><b>User:</b> '.$sheet->{'uname'}.
'<br><b>Domain:</b> '.$asheetdata->{'udom'});	'<br><b>Domain:</b> '.$sheet->{'udom'});
if (&getcsec($asheet) eq '-1') {	$r->print('<br><b>Section/Group:</b> '.$sheet->{'csec'});
$r->print('<h3><font color=red>'.
'Not a student in this course</font></h3>');
} else {
$r->print('<br><b>Section/Group:</b> '.$asheetdata->{'csec'});
}
if ($ENV{'form.usymb'}) {	if ($ENV{'form.usymb'}) {
$r->print('<br><b>Assessment:</b> <tt>'.	$r->print('<br><b>Assessment:</b> <tt>'.
$ENV{'form.usymb'}.'</tt>');	$ENV{'form.usymb'}.'</tt>');
Line 2560 ENDSCRIPT	Line 2480 ENDSCRIPT
}	}
#	#
# Check user permissions	# Check user permissions
if (($asheetdata->{'sheettype'} eq 'classcalc' ) \|\|	if (($sheet->{'sheettype'} eq 'classcalc' ) \|\|
($asheetdata->{'uname'} ne $ENV{'user.name'} ) \|\|	($sheet->{'uname'} ne $ENV{'user.name'} ) \|\|
($asheetdata->{'udom'} ne $ENV{'user.domain'})) {	($sheet->{'udom'} ne $ENV{'user.domain'})) {
unless (&Apache::lonnet::allowed('vgr',$asheetdata->{'cid'})) {	unless (&Apache::lonnet::allowed('vgr',$sheet->{'cid'})) {
$r->print('<h1>Access Permission Denied</h1>'.	$r->print('<h1>Access Permission Denied</h1>'.
'</form></body></html>');	'</form></body></html>');
return OK;	return OK;
Line 2573 ENDSCRIPT	Line 2493 ENDSCRIPT
$r->print('<br />'.	$r->print('<br />'.
'<input type="submit" name="forcerecalc" '.	'<input type="submit" name="forcerecalc" '.
'value="Completely Recalculate Sheet"><p>');	'value="Completely Recalculate Sheet"><p>');
if ($asheetdata->{'sheettype'} eq 'assesscalc') {	if ($sheet->{'sheettype'} eq 'assesscalc') {
$r->print('<p><font size=+2>'.	$r->print('<p><font size=+2>'.
'<a href="/adm/studentcalc?'.	'<a href="/adm/studentcalc?'.
'uname='.$asheetdata->{'uname'}.	'uname='.$sheet->{'uname'}.
'&udom='.$asheetdata->{'udom'}.'">'.	'&udom='.$sheet->{'udom'}.'">'.
'Level up: Student Sheet</a></font><p>');	'Level up: Student Sheet</a></font><p>');
}	}
if (($asheetdata->{'sheettype'} eq 'studentcalc') &&	if (($sheet->{'sheettype'} eq 'studentcalc') &&
(&Apache::lonnet::allowed('vgr',$asheetdata->{'cid'}))) {	(&Apache::lonnet::allowed('vgr',$sheet->{'cid'}))) {
$r->print ('<p><font size=+2><a href="/adm/classcalc">'.	$r->print ('<p><font size=+2><a href="/adm/classcalc">'.
'Level up: Course Sheet</a></font><p>');	'Level up: Course Sheet</a></font><p>');
}	}
Line 2594 ENDSCRIPT	Line 2514 ENDSCRIPT
'<input type=text size=20 name=newfn value="'.$fname.'">'.	'<input type=text size=20 name=newfn value="'.$fname.'">'.
'make default: <input type=checkbox name="makedefufn"><p>');	'make default: <input type=checkbox name="makedefufn"><p>');
}	}
$r->print(&hiddenfield('ufn',&getfilename($asheet)));	$r->print(&hiddenfield('ufn',$sheet->{'filename'}));
# Load dialog	# Load dialog
if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) {	if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) {
$r->print('<p><input type=submit name=load value="Load ...">'.	$r->print('<p><input type=submit name=load value="Load ...">'.
'<select name="loadthissheet">'.	'<select name="loadthissheet">'.
'<option name="default">Default</option>');	'<option name="default">Default</option>');
foreach (&othersheets($asheet,$asheetdata->{'sheettype'})) {	foreach (&othersheets($sheet)) {
$r->print('<option name="'.$_.'"');	$r->print('<option name="'.$_.'"');
if ($ENV{'form.ufn'} eq $_) {	if ($ENV{'form.ufn'} eq $_) {
$r->print(' selected');	$r->print(' selected');
Line 2608 ENDSCRIPT	Line 2528 ENDSCRIPT
$r->print('>'.$_.'</option>');	$r->print('>'.$_.'</option>');
}	}
$r->print('</select><p>');	$r->print('</select><p>');
if (&gettype($asheet) eq 'studentcalc') {	if ($sheet->{'sheettype'} eq 'studentcalc') {
&setothersheets($asheet,&othersheets($asheet,'assesscalc'));	&setothersheets($sheet,
	&othersheets($sheet,'assesscalc'));
}	}
}	}
# Cached sheets	# Cached sheets
&expirationdates();	&expirationdates();
undef %oldsheets;	undef %oldsheets;
undef %loadedcaches;	undef %loadedcaches;
if ($asheetdata->{'sheettype'} eq 'classcalc') {	if ($sheet->{'sheettype'} eq 'classcalc') {
$r->print("Loading previously calculated student sheets ...\n");	$r->print("Loading previously calculated student sheets ...\n");
$r->rflush();	$r->rflush();
&cachedcsheets();	&cachedcsheets();
} elsif ($asheetdata->{'sheettype'} eq 'studentcalc') {	} elsif ($sheet->{'sheettype'} eq 'studentcalc') {
$r->print("Loading previously calculated assessment sheets ...\n");	$r->print("Loading previously calculated assessment sheets ...\n");
$r->rflush();	$r->rflush();
&cachedssheets($asheetdata->{'uname'},$asheetdata->{'udom'},	&cachedssheets($sheet);
$asheetdata->{'uhome'});
}	}
# Update sheet, load rows	# Update sheet, load rows
$r->print("Loaded sheet(s), updating rows ...<br>\n");	$r->print("Loaded sheet(s), updating rows ...<br>\n");
$r->rflush();	$r->rflush();
#	#
&updatesheet($asheet,$asheetdata);	&updatesheet($sheet);
$r->print("Updated rows, loading row data ...\n");	$r->print("Updated rows, loading row data ...\n");
$r->rflush();	$r->rflush();
#	#
&loadrows($asheet,$asheetdata,$r);	&loadrows($sheet,$r);
$r->print("Loaded row data, calculating sheet ...<br>\n");	$r->print("Loaded row data, calculating sheet ...<br>\n");
$r->rflush();	$r->rflush();
#	#
my $calcoutput=&calcsheet($asheet);	my $calcoutput=&calcsheet($sheet);
$r->print('<h3><font color=red>'.$calcoutput.'</h3></font>');	$r->print('<h3><font color=red>'.$calcoutput.'</h3></font>');
# See if something to save	# See if something to save
if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) {	if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) {
Line 2646 ENDSCRIPT	Line 2566 ENDSCRIPT
if ($ENV{'form.saveas'} && ($fname=$ENV{'form.newfn'})) {	if ($ENV{'form.saveas'} && ($fname=$ENV{'form.newfn'})) {
$fname=~s/\W/\_/g;	$fname=~s/\W/\_/g;
if ($fname eq 'default') { $fname='course_default'; }	if ($fname eq 'default') { $fname='course_default'; }
$fname.='_'.$asheetdata->{'sheettype'};	$fname.='_'.$sheet->{'sheettype'};
&setfilename($asheet,$fname);	$sheet->{'filename'} = $fname;
$ENV{'form.ufn'}=$fname;	$ENV{'form.ufn'}=$fname;
$r->print('<p>Saving spreadsheet: '.	$r->print('<p>Saving spreadsheet: '.
&writesheet($asheet,$ENV{'form.makedefufn'}).'<p>');	&writesheet($sheet,$ENV{'form.makedefufn'}).
	'<p>');
}	}
}	}
#	#
#Write the modified worksheet	# Write the modified worksheet
$r->print('<b>Current sheet:</b> '.&getfilename($asheet).'<p>');	$r->print('<b>Current sheet:</b> '.$sheet->{'filename'}.'<p>');
&tmpwrite($asheet);	&tmpwrite($sheet);
if ($asheetdata->{'sheettype'} eq 'studentcalc') {	if ($sheet->{'sheettype'} eq 'studentcalc') {
$r->print('<br>Show rows with empty A column: ');	$r->print('<br>Show rows with empty A column: ');
} else {	} else {
$r->print('<br>Show empty rows: ');	$r->print('<br>Show empty rows: ');
}	}
#	#
$r->print(&hiddenfield('userselhidden','true').	$r->print(&hiddenfield('userselhidden','true').
'<input type="checkbox" name="showall" onClick="submit()"');	'<input type="checkbox" name="showall" onClick="submit()"');
Line 2671 ENDSCRIPT	Line 2592 ENDSCRIPT
} else {	} else {
unless ($ENV{'form.userselhidden'}) {	unless ($ENV{'form.userselhidden'}) {
unless	unless
($ENV{'course.'.$ENV{'request.course.id'}.'.hideemptyrows'} eq 'yes') {	($ENV{'course.'.$sheet->{'cid'}.'.hideemptyrows'} eq 'yes') {
$r->print(' checked');	$r->print(' checked');
$ENV{'form.showall'}=1;	$ENV{'form.showall'}=1;
}	}
Line 2680 ENDSCRIPT	Line 2601 ENDSCRIPT
$r->print('>');	$r->print('>');
#	#
# CSV format checkbox (classcalc sheets only)	# CSV format checkbox (classcalc sheets only)
if ($asheetdata->{'sheettype'} eq 'classcalc') {	$r->print(' Output CSV format: <input type="checkbox" '.
$r->print(' Output CSV format: <input type="checkbox" '.	'name="showcsv" onClick="submit()"');
'name="showcsv" onClick="submit()"');	$r->print(' checked') if ($ENV{'form.showcsv'});
if ($ENV{'form.showcsv'}) { $r->print(' checked'); }	$r->print('>');
$r->print('>');	if ($sheet->{'sheettype'} eq 'classcalc') {
	$r->print(' Student Status: '.
	&Apache::lonhtmlcommon::StatusOptions
	($ENV{'form.Status'},'sheet'));
}	}
#	#
# Buttons to insert rows	# Buttons to insert rows
$r->print(' Student Status: '.
&Apache::lonhtmlcommon::StatusOptions
($ENV{'form.Status'},'sheet'));
$r->print(<<ENDINSERTBUTTONS);	$r->print(<<ENDINSERTBUTTONS);
<br>	<br>
<input type='button' onClick='insertrow("top");'	<input type='button' onClick='insertrow("top");'
Line 2699 value='Insert Row Top'>	Line 2620 value='Insert Row Top'>
value='Insert Row Bottom'><br>	value='Insert Row Bottom'><br>
ENDINSERTBUTTONS	ENDINSERTBUTTONS
# Print out sheet	# Print out sheet
&outsheet($r,$asheet,$asheetdata);	&outsheet($r,$sheet);
$r->print('</form></body></html>');	$r->print('</form></body></html>');
# Done	# Done
return OK;	return OK;
Line 2707 ENDINSERTBUTTONS	Line 2628 ENDINSERTBUTTONS

1;	1;
__END__	__END__

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.107
changed lines
	Added in v.1.131