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.133 and 1.163

version 1.133, 2002/11/05 15:00:27	version 1.163, 2003/01/15 19:34:03
Line 53 built-in functions.	Line 53 built-in functions.
package Apache::lonspreadsheet;	package Apache::lonspreadsheet;

use strict;	use strict;
	use Apache::Constants qw(:common :http);
	use Apache::lonnet;
	use Apache::lonhtmlcommon;
	use Apache::loncoursedata;
	use Apache::File();
use Safe;	use Safe;
use Safe::Hole;	use Safe::Hole;
use Opcode;	use Opcode;
use Apache::lonnet;
use Apache::Constants qw(:common :http);
use GDBM_File;	use GDBM_File;
	use HTML::Entities();
use HTML::TokeParser;	use HTML::TokeParser;
use Apache::lonhtmlcommon;	use Spreadsheet::WriteExcel;
use Apache::loncoursedata;
#	#
# Caches for coursewide information	# Caches for coursewide information
#	#
Line 91 my %spreadsheets;	Line 95 my %spreadsheets;
my %courserdatas;	my %courserdatas;
my %userrdatas;	my %userrdatas;
my %defaultsheets;	my %defaultsheets;
my %updatedata;	my %rowlabel_cache;

#	#
# These global hashes are dependent on user, course and resource,	# These global hashes are dependent on user, course and resource,
Line 957 ENDDEFS	Line 961 ENDDEFS
sub templaterow {	sub templaterow {
my $sheet = shift;	my $sheet = shift;
my @cols=();	my @cols=();
my $rowlabel = 'Template';	my $rowlabel = 'Template</td><td> ';
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=$sheet->{'f'}->{'template_'.$_};
$fm=~s/[\'\"]/\&\#34;/g;
push(@cols,{ name => 'template_'.$_,	push(@cols,{ name => 'template_'.$_,
formula => $fm,	formula => $sheet->{'f'}->{'template_'.$_},
value => $fm });	value => $sheet->{'f'}->{'template_'.$_} });
}	}
return ($rowlabel,@cols);	return ($rowlabel,@cols);
}	}
Line 979 sub outrowassess {	Line 981 sub outrowassess {
if ($n) {	if ($n) {
my ($usy,$ufn)=split(/__&&&\__/,$sheet->{'f'}->{'A'.$n});	my ($usy,$ufn)=split(/__&&&\__/,$sheet->{'f'}->{'A'.$n});
if (exists($sheet->{'rowlabel'}->{$usy})) {	if (exists($sheet->{'rowlabel'}->{$usy})) {
$rowlabel = $sheet->{'rowlabel'}->{$usy};	# This is dumb, but we need the information when we output
	# the html version of the studentcalc spreadsheet for the
	# links to the assesscalc sheets.
	$rowlabel = $sheet->{'rowlabel'}->{$usy}.':'.
	&Apache::lonnet::escape($ufn);
} else {	} else {
$rowlabel = '';	$rowlabel = '';
}	}
	} elsif ($ENV{'request.role'} =~ /^st\./) {
	$rowlabel = 'Summary</td><td>0';
} else {	} else {
$rowlabel = 'Export';	$rowlabel = 'Export</td><td>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',
'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=$sheet->{'f'}->{$_.$n};
$fm=~s/[\'\"]/\&\#34;/g;
push(@cols,{ name => $_.$n,	push(@cols,{ name => $_.$n,
formula => $fm,	formula => $sheet->{'f'}->{$_.$n},
value => $sheet->{'values'}->{$_.$n}});	value => $sheet->{'values'}->{$_.$n}});
}	}
return ($rowlabel,@cols);	return ($rowlabel,@cols);
Line 1007 sub outrow {	Line 1013 sub outrow {
$rowlabel = $sheet->{'rowlabel'}->{$sheet->{'f'}->{'A'.$n}};	$rowlabel = $sheet->{'rowlabel'}->{$sheet->{'f'}->{'A'.$n}};
} else {	} else {
if ($sheet->{'sheettype'} eq 'classcalc') {	if ($sheet->{'sheettype'} eq 'classcalc') {
$rowlabel = 'Summary';	$rowlabel = 'Summary</td><td>0';
} else {	} else {
$rowlabel = 'Export';	$rowlabel = 'Export</td><td>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',
'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=$sheet->{'f'}->{$_.$n};
$fm=~s/[\'\"]/\&\#34;/g;
push(@cols,{ name => $_.$n,	push(@cols,{ name => $_.$n,
formula => $fm,	formula => $sheet->{'f'}->{$_.$n},
value => $sheet->{'values'}->{$_.$n}});	value => $sheet->{'values'}->{$_.$n}});
}	}
return ($rowlabel,@cols);	return ($rowlabel,@cols);
Line 1083 sub geterrorlog {	Line 1087 sub geterrorlog {
return ${$sheet->{'safe'}->varglob('errorlog')};	return ${$sheet->{'safe'}->varglob('errorlog')};
}	}

	sub gettitle {
	my $sheet = shift;
	if ($sheet->{'sheettype'} eq 'classcalc') {
	return $sheet->{'coursedesc'};
	} elsif ($sheet->{'sheettype'} eq 'studentcalc') {
	return 'Grades for '.$sheet->{'uname'}.'@'.$sheet->{'udom'};
	} elsif ($sheet->{'sheettype'} eq 'assesscalc') {
	if (($sheet->{'usymb'} eq '_feedback') \|\|
	($sheet->{'usymb'} eq '_evaluation') \|\|
	($sheet->{'usymb'} eq '_discussion') \|\|
	($sheet->{'usymb'} eq '_tutoring')) {
	my $title = $sheet->{'usymb'};
	$title =~ s/^_//;
	$title = ucfirst($title);
	return $title;
	}
	return if (! defined($sheet->{'mapid'}) \|\|
	$sheet->{'mapid'} !~ /^\d+$/);
	my $mapid = $sheet->{'mapid'};
	return if (! defined($sheet->{'resid'}) \|\|
	$sheet->{'resid'} !~ /^\d+$/);
	my $resid = $sheet->{'resid'};
	my %course_db;
	tie(%course_db,'GDBM_File',$sheet->{'coursefilename'}.'.db',
	&GDBM_READER(),0640);
	return if (! tied(%course_db));
	my $key = 'title_'.$mapid.'.'.$resid;
	my $title = '';
	if (exists($course_db{$key})) {
	$title = $course_db{$key};
	} else {
	$title = $sheet->{'usymb'};
	}
	untie (%course_db);
	return $title;
	}
	}

# ----------------------------------------------------- Get value of $f{'A'.$n}	# ----------------------------------------------------- Get value of $f{'A'.$n}
sub getfa {	sub getfa {
my $sheet = shift;	my $sheet = shift;
Line 1105 sub exportdata {	Line 1147 sub exportdata {
return @exportarray;	return @exportarray;
}	}



	sub update_student_sheet{
	my ($sheet,$r,$c) = @_;
	# Load in the studentcalc sheet
	&readsheet($sheet,'default_studentcalc');
	# Determine the structure (contained assessments, etc) of the sheet
	&updatesheet($sheet);
	# Load in the cached sheets for this student
	&cachedssheets($sheet);
	# Load in the (possibly cached) data from the assessment sheets
	&loadstudent($sheet,$r,$c);
	# Compute the sheet
	&calcsheet($sheet);
	}

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

#	#
# Procedures for screen output	# Procedures for spreadsheet output
#	#
# --------------------------------------------- Produce output row n from sheet	# --------------------------------------------- Produce output row n from sheet

Line 1130 sub get_row {	Line 1187 sub get_row {
########################################################################	########################################################################
sub sort_indicies {	sub sort_indicies {
my $sheet = shift;	my $sheet = shift;
#
# Sort the rows in some manner
#
my @sortby=();
my @sortidx=();	my @sortidx=();
for (my $row=1;$row<=$sheet->{'maxrow'};$row++) {	#
push (@sortby, $sheet->{'safe'}->reval('$f{"A'.$row.'"}'));	if ($sheet->{'sheettype'} eq 'classcalc') {
push (@sortidx, $row);	my @sortby=(undef);
	# Skip row 0
	for (my $row=1;$row<=$sheet->{'maxrow'};$row++) {
	my (undef,$sname,$sdom,$fullname,$section,$id) =
	split(':',$sheet->{'rowlabel'}->{$sheet->{'f'}->{'A'.$row}});
	push (@sortby, lc($fullname));
	push (@sortidx, $row);
	}
	@sortidx = sort { $sortby[$a] cmp $sortby[$b]; } @sortidx;
	} elsif ($sheet->{'sheettype'} eq 'studentcalc') {
	my @sortby1=(undef);
	my @sortby2=(undef);
	# Skip row 0
	for (my $row=1;$row<=$sheet->{'maxrow'};$row++) {
	my ($key,undef) = split(/__&&&\__/,$sheet->{'f'}->{'A'.$row});
	my $rowlabel = $sheet->{'rowlabel'}->{$key};
	my (undef,$symb,$mapid,$resid,$title,$ufn) =
	split(':',$rowlabel);
	$ufn = &Apache::lonnet::unescape($ufn);
	$symb = &Apache::lonnet::unescape($symb);
	$title = &Apache::lonnet::unescape($title);
	my ($sequence) = ($symb =~ /\/([^\/]*\.sequence)/);
	if ($sequence eq '') {
	$sequence = $symb;
	}
	push (@sortby1, $sequence);
	push (@sortby2, $title);
	push (@sortidx, $row);
	}
	@sortidx = sort { $sortby1[$a] cmp $sortby1[$b] \|\|
	$sortby2[$a] cmp $sortby2[$b] } @sortidx;
	} else {
	my @sortby=(undef);
	# Skip row 0
	for (my $row=1;$row<=$sheet->{'maxrow'};$row++) {
	push (@sortby, $sheet->{'safe'}->reval('$f{"A'.$row.'"}'));
	push (@sortidx, $row);
	}
	@sortidx = sort { $sortby[$a] cmp $sortby[$b]; } @sortidx;
}	}
@sortidx=sort { lc($sortby[$a]) cmp lc($sortby[$b]); } @sortidx;
return @sortidx;	return @sortidx;
}	}

########################################################################	#############################################################
########################################################################	### ###
	### Spreadsheet Output Routines ###
	### ###
	#############################################################

	############################################
	## HTML output routines ##
	############################################
sub html_editable_cell {	sub html_editable_cell {
my ($cell,$bgcolor) = @_;	my ($cell,$bgcolor) = @_;
my $result;	my $result;
Line 1162 sub html_editable_cell {	Line 1258 sub html_editable_cell {
if ($formula ne '') {	if ($formula ne '') {
$value = '<i>undefined value</i>';	$value = '<i>undefined value</i>';
}	}
}	} elsif ($value =~ /^\s*$/ ) {
if ($value =~ /^\s*$/ ) {
$value = '<font color="'.$bgcolor.'">#</font>';	$value = '<font color="'.$bgcolor.'">#</font>';
	} else {
	$value = &HTML::Entities::encode($value) if ($value !~/ /);
}	}
$result .= '<a href="javascript:celledit(\''.	# Make the formula safe for outputting
$name.'\',\''.$formula.'\');">'.$value.'</a>';	$formula =~ s/\'/\"/g;
	# The formula will be parsed by the browser twice before being
	# displayed to the user for editing.
	$formula = &HTML::Entities::encode(&HTML::Entities::encode($formula));
	# Escape newlines so they make it into the edit window
	$formula =~ s/\n/\\n/gs;
	# Glue everything together
	$result .= "<a href=\"javascript:celledit(\'".
	$name."','".$formula."');\">".$value."</a>";
return $result;	return $result;
}	}

sub html_uneditable_cell {	sub html_uneditable_cell {
my ($cell,$bgcolor) = @_;	my ($cell,$bgcolor) = @_;
my $value = (defined($cell) ? $cell->{'value'} : '');	my $value = (defined($cell) ? $cell->{'value'} : '');
	$value = &HTML::Entities::encode($value) if ($value !~/ /);
return ' '.$value.' ';	return ' '.$value.' ';
}	}

########################################################################
########################################################################

sub outsheet_html {	sub outsheet_html {
my ($sheet,$r) = @_;	my ($sheet,$r) = @_;
my ($num_uneditable,$realm,$row_type);	my ($num_uneditable,$realm,$row_type);
	my $requester_is_student = ($ENV{'request.role'} =~ /^st\./);
if ($sheet->{'sheettype'} eq 'assesscalc') {	if ($sheet->{'sheettype'} eq 'assesscalc') {
$num_uneditable = 1;	$num_uneditable = 1;
$realm = 'Assessment';	$realm = 'Assessment';
Line 1205 sub outsheet_html {	Line 1309 sub outsheet_html {
my $tabledata =<<"END";	my $tabledata =<<"END";
<table border="2">	<table border="2">
<tr>	<tr>
<th colspan="1" rowspan="2"><font size="+2">$realm</font></th>	<th colspan="2" rowspan="2"><font size="+2">$realm</font></th>
<td bgcolor="#FFDDDD" colspan="$num_uneditable">	<td bgcolor="#FFDDDD" colspan="$num_uneditable">
<b><font size="+1">Import</font></b></td>	<b><font size="+1">Import</font></b></td>
<td colspan="$num_left">	<td colspan="$num_left">
Line 1227 END	Line 1331 END
####################################	####################################
# Print out template row	# Print out template row
####################################	####################################
my ($rowlabel,@rowdata) = &get_row($sheet,'-');	my ($num_cols_output,$row_html,$rowlabel,@rowdata);
my $row_html = '<tr><td>'.&format_html_rowlabel($rowlabel).'</td>';
my $num_cols_output = 0;	if (! $requester_is_student) {
foreach my $cell (@rowdata) {	($rowlabel,@rowdata) = &get_row($sheet,'-');
if ($num_cols_output++ < $num_uneditable) {	$row_html = '<tr><td>'.&format_html_rowlabel($sheet,$rowlabel).'</td>';
$row_html .= '<td bgcolor="#FFDDDD">';	$num_cols_output = 0;
$row_html .= &html_uneditable_cell($cell,'#FFDDDD');	foreach my $cell (@rowdata) {
} else {	if ($requester_is_student \|\|
$row_html .= '<td bgcolor="#EOFFDD">';	$num_cols_output++ < $num_uneditable) {
$row_html .= &html_editable_cell($cell,'#E0FFDD');	$row_html .= '<td bgcolor="#FFDDDD">';
	$row_html .= &html_uneditable_cell($cell,'#FFDDDD');
	} else {
	$row_html .= '<td bgcolor="#EOFFDD">';
	$row_html .= &html_editable_cell($cell,'#E0FFDD');
	}
	$row_html .= '</td>';
}	}
$row_html .= '</td>';	$row_html.= "</tr>\n";
	$r->print($row_html);
}	}
$row_html.= "</tr>\n";
$r->print($row_html);
####################################	####################################
# Print out summary/export row	# Print out summary/export row
####################################	####################################
my ($rowlabel,@rowdata) = &get_row($sheet,'0');	($rowlabel,@rowdata) = &get_row($sheet,'0');
my $rowcount = 0;	$row_html = '<tr><td>'.&format_html_rowlabel($sheet,$rowlabel).'</td>';
$row_html = '<tr><td>'.&format_html_rowlabel($rowlabel).'</td>';
$num_cols_output = 0;	$num_cols_output = 0;
foreach my $cell (@rowdata) {	foreach my $cell (@rowdata) {
if ($num_cols_output++ < 26) {	if ($num_cols_output++ < 26 && ! $requester_is_student) {
$row_html .= '<td bgcolor="#CCCCFF">';	$row_html .= '<td bgcolor="#CCCCFF">';
$row_html .= &html_editable_cell($cell,'#CCCCFF');	$row_html .= &html_editable_cell($cell,'#CCCCFF');
} else {	} else {
$row_html .= '<td bgcolor="#DDCCFF">';	$row_html .= '<td bgcolor="#DDCCFF">';
$row_html .= &html_uneditable_cell(undef,'#CCCCFF');	$row_html .= &html_uneditable_cell($cell,'#CCCCFF');
}	}
$row_html .= '</td>';	$row_html .= '</td>';
}	}
Line 1271 END	Line 1379 END
my $rows_output=0;	my $rows_output=0;
foreach my $rownum (@Rows) {	foreach my $rownum (@Rows) {
my ($rowlabel,@rowdata) = &get_row($sheet,$rownum);	my ($rowlabel,@rowdata) = &get_row($sheet,$rownum);
	next if ($rowlabel =~ /^\s*$/);
	next if (($sheet->{'sheettype'} eq 'assesscalc') &&
	(! $ENV{'form.showall'}) &&
	($rowdata[0]->{'value'} =~ /^\s*$/));
	if (! $ENV{'form.showall'} &&
	$sheet->{'sheettype'} =~ /^(studentcalc\|classcalc)$/) {
	my $row_is_empty = 1;
	foreach my $cell (@rowdata) {
	if ($cell->{'value'} !~ /^\s*$/) {
	$row_is_empty = 0;
	last;
	}
	}
	next if ($row_is_empty);
	}
#	#
my $defaultbg='#E0FF';	my $defaultbg='#E0FF';
#	#
Line 1278 END	Line 1401 END
'</font></b></td>';	'</font></b></td>';
#	#
if ($sheet->{'sheettype'} eq 'classcalc') {	if ($sheet->{'sheettype'} eq 'classcalc') {
$row_html.='<td>'.&format_html_rowlabel($rowlabel).'</td>';	$row_html.='<td>'.&format_html_rowlabel($sheet,$rowlabel).'</td>';
# Output links for each student?	# Output links for each student?
# Nope, that is already done for us in format_html_rowlabel (for now)	# Nope, that is already done for us in format_html_rowlabel
	# (for now)
} elsif ($sheet->{'sheettype'} eq 'studentcalc') {	} elsif ($sheet->{'sheettype'} eq 'studentcalc') {
$row_html.='<td>'.&format_html_rowlabel($rowlabel);	my $ufn = (split(/:/,$rowlabel))[5];
	$row_html.='<td>'.&format_html_rowlabel($sheet,$rowlabel);
$row_html.= '<br>'.	$row_html.= '<br>'.
'<select name="sel_'.$rownum.'" '.	'<select name="sel_'.$rownum.'" '.
'onChange="changesheet('.$rownum.')">'.	'onChange="changesheet('.$rownum.')">'.
'<option name="default">Default</option>';	'<option name="default">Default</option>';

foreach (@{$sheet->{'othersheets'}}) {	foreach (@{$sheet->{'othersheets'}}) {
$row_html.='<option name="'.$_.'"';	$row_html.='<option name="'.$_.'"';
#if ($ufn eq $_) {	if ($ufn eq $_) {
# $row_html.=' selected';	$row_html.=' selected';
#}	}
$row_html.='>'.$_.'</option>';	$row_html.='>'.$_.'</option>';
}	}
$row_html.='</select></td>';	$row_html.='</select></td>';
} elsif ($sheet->{'sheettype'} eq 'assesscalc') {	} elsif ($sheet->{'sheettype'} eq 'assesscalc') {
$row_html.='<td>'.&format_html_rowlabel($rowlabel).'</td>';	$row_html.='<td>'.&format_html_rowlabel($sheet,$rowlabel).'</td>';
}	}
#	#
my $shown_cells = 0;	my $shown_cells = 0;
Line 1314 END	Line 1440 END
$bgcolor='#FFDDDD' if ($shown_cells < $num_uneditable);	$bgcolor='#FFDDDD' if ($shown_cells < $num_uneditable);
#	#
$row_html.='<td bgcolor='.$bgcolor.'>';	$row_html.='<td bgcolor='.$bgcolor.'>';
if ($shown_cells < $num_uneditable) {	if ($requester_is_student \|\| $shown_cells < $num_uneditable) {
$row_html .= &html_uneditable_cell($cell,$bgcolor);	$row_html .= &html_uneditable_cell($cell,$bgcolor);
} else {	} else {
$row_html .= &html_editable_cell($cell,$bgcolor);	$row_html .= &html_editable_cell($cell,$bgcolor);
Line 1349 END	Line 1475 END
return 1;	return 1;
}	}

	############################################
	## csv output routines ##
	############################################
sub outsheet_csv {	sub outsheet_csv {
my ($sheet,$r) = @_;	my ($sheet,$r) = @_;
my $csvdata = '';	my $csvdata = '';
Line 1362 sub outsheet_csv {	Line 1491 sub outsheet_csv {
my $rows_output=0;	my $rows_output=0;
foreach my $rownum (@Rows) {	foreach my $rownum (@Rows) {
my ($rowlabel,@rowdata) = &get_row($sheet,$rownum);	my ($rowlabel,@rowdata) = &get_row($sheet,$rownum);
push (@Values,&format_csv_rowlabel($rowlabel));	next if ($rowlabel =~ /^\s*$/);
	push (@Values,&format_csv_rowlabel($sheet,$rowlabel));
foreach my $cell (@rowdata) {	foreach my $cell (@rowdata) {
push (@Values,'"'.$cell->{'value'}.'"');	push (@Values,'"'.$cell->{'value'}.'"');
}	}
Line 1370 sub outsheet_csv {	Line 1500 sub outsheet_csv {
@Values = ();	@Values = ();
}	}
#	#
$r->print('<pre>'.$csvdata."\n</pre>");	# Write the CSV data to a file and serve up a link
	#
	my $filename = '/prtspool/'.
	$ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'.
	time.'_'.rand(1000000000).'.csv';
	my $file;
	unless ($file = Apache::File->new('>'.'/home/httpd'.$filename)) {
	$r->log_error("Couldn't open $filename for output $!");
	$r->print("Problems occured in writing the csv file. ".
	"This error has been logged. ".
	"Please alert your LON-CAPA administrator.");
	$r->print("<pre>\n".$csvdata."</pre>\n");
	return 0;
	}
	print $file $csvdata;
	close($file);
	$r->print('<br /><br />'.
	'<a href="'.$filename.'">Your CSV spreadsheet.</a>'."\n");
#	#
return 1;	return 1;
}	}

	############################################
	## Excel output routines ##
	############################################
	sub outsheet_recursive_excel {
	my ($sheet,$r) = @_;
	my $c = $r->connection;
	return undef if ($sheet->{'sheettype'} ne 'classcalc');
	my ($workbook,$filename) = &create_excel_spreadsheet($sheet,$r);
	return undef if (! defined($workbook));
	#
	# Create main worksheet
	my $main_worksheet = $workbook->addworksheet('main');
	#
	# Figure out who the students are
	my %f=&getformulas($sheet);
	my $count = 0;
	$r->print(<<END);
	<p>
	Compiling Excel Workbook with a worksheet for each student.
	</p><p>
	This operation may take longer than a complete recalculation of the
	spreadsheet.
	</p><p>
	To abort this operation, hit the stop button on your browser.
	</p><p>
	A link to the spreadsheet will be available at the end of this process.
	</p>
	<p>
	END
	$r->rflush();
	my $starttime = time;
	foreach my $rownum (&sort_indicies($sheet)) {
	$count++;
	my ($sname,$sdom) = split(':',$f{'A'.$rownum});
	my $student_excel_worksheet=$workbook->addworksheet($sname.'@'.$sdom);
	# Create a new spreadsheet
	my $studentsheet = &makenewsheet($sname,$sdom,'studentcalc',undef);
	# Read in the spreadsheet definition
	&update_student_sheet($studentsheet,$r,$c);
	# Stuff the sheet into excel
	&export_sheet_as_excel($studentsheet,$student_excel_worksheet);
	my $totaltime = int((time - $starttime) / $count * $sheet->{'maxrow'});
	my $timeleft = int((time - $starttime) / $count * ($sheet->{'maxrow'} - $count));
	if ($count % 5 == 0) {
	$r->print($count.' students completed.'.
	' Time remaining: '.$timeleft.' sec. '.
	' Estimated total time: '.$totaltime." sec <br />\n");
	$r->rflush();
	}
	if(defined($c) && ($c->aborted())) {
	last;
	}
	}
	#
	if(! $c->aborted() ) {
	$r->print('All students spreadsheets completed!<br />');
	$r->rflush();
	#
	# &export_sheet_as_excel fills $worksheet with the data from $sheet
	&export_sheet_as_excel($sheet,$main_worksheet);
	#
	$workbook->close();
	# Okay, the spreadsheet is taken care of, so give the user a link.
	$r->print('<br /><br />'.
	'<a href="'.$filename.'">Your Excel spreadsheet.</a>'."\n");
	} else {
	$workbook->close(); # Not sure how necessary this is.
	#unlink('/home/httpd'.$filename); # No need to keep this around?
	}
	return 1;
	}

sub outsheet_excel {	sub outsheet_excel {
my ($sheet,$r) = @_;	my ($sheet,$r) = @_;
	my ($workbook,$filename) = &create_excel_spreadsheet($sheet,$r);
	return undef if (! defined($workbook));
	my $sheetname;
	if ($sheet->{'sheettype'} eq 'classcalc') {
	$sheetname = 'Main';
	} elsif ($sheet->{'sheettype'} eq 'studentcalc') {
	$sheetname = $sheet->{'uname'}.'@'.$sheet->{'udom'};
	} elsif ($sheet->{'sheettype'} eq 'assesscalc') {
	$sheetname = $sheet->{'uname'}.'@'.$sheet->{'udom'}.' assessment';
	}
	my $worksheet = $workbook->addworksheet($sheetname);
	#
	# &export_sheet_as_excel fills $worksheet with the data from $sheet
	&export_sheet_as_excel($sheet,$worksheet);
	#
	$workbook->close();
	# Okay, the spreadsheet is taken care of, so give the user a link.
	$r->print('<br /><br />'.
	'<a href="'.$filename.'">Your Excel spreadsheet.</a>'."\n");
	return 1;
	}

	sub create_excel_spreadsheet {
	my ($sheet,$r) = @_;
	my $filename = '/prtspool/'.
	$ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'.
	time.'_'.rand(1000000000).'.xls';
	my $workbook = Spreadsheet::WriteExcel->new('/home/httpd'.$filename);
	if (! defined($workbook)) {
	$r->log_error("Error creating excel spreadsheet $filename: $!");
	$r->print("Problems creating new Excel file. ".
	"This error has been logged. ".
	"Please alert your LON-CAPA administrator");
	return undef;
	}
	#
	# The spreadsheet stores temporary data in files, then put them
	# together. If needed we should be able to disable this (memory only).
	# The temporary directory must be specified before calling 'addworksheet'.
	# File::Temp is used to determine the temporary directory.
	$workbook->set_tempdir('/home/httpd/perl/tmp');
	#
	# Determine the name to give the worksheet
	return ($workbook,$filename);
}	}

	sub export_sheet_as_excel {
	my $sheet = shift;
	my $worksheet = shift;
	#
	my $rows_output = 0;
	my $cols_output = 0;
	####################################
	# Write an identifying row #
	####################################
	my @Headerinfo = ($sheet->{'coursedesc'});
	my $title = &gettitle($sheet);
	$cols_output = 0;
	if (defined($title)) {
	$worksheet->write($rows_output++,$cols_output++,$title);
	}
	####################################
	# Write the summary/export row #
	####################################
	my ($rowlabel,@rowdata) = &get_row($sheet,'0');
	my $label = &format_excel_rowlabel($sheet,$rowlabel);
	$cols_output = 0;
	$worksheet->write($rows_output,$cols_output++,$label);
	foreach my $cell (@rowdata) {
	$worksheet->write($rows_output,$cols_output++,$cell->{'value'});
	}
	$rows_output+= 2; # Skip a row, just for fun
	####################################
	# Prepare to output rows
	####################################
	my @Rows = &sort_indicies($sheet);
	#
	# Loop through the rows and output them one at a time
	foreach my $rownum (@Rows) {
	my ($rowlabel,@rowdata) = &get_row($sheet,$rownum);
	next if ($rowlabel =~ /^[\s]*$/);
	$cols_output = 0;
	my $label = &format_excel_rowlabel($sheet,$rowlabel);
	if ( ! $ENV{'form.showall'} &&
	$sheet->{'sheettype'} =~ /^(studentcalc\|classcalc)$/) {
	my $row_is_empty = 1;
	foreach my $cell (@rowdata) {
	if ($cell->{'value'} !~ /^\s*$/) {
	$row_is_empty = 0;
	last;
	}
	}
	next if ($row_is_empty);
	}
	$worksheet->write($rows_output,$cols_output++,$label);
	if (ref($label)) {
	$cols_output = (scalar(@$label));
	}
	foreach my $cell (@rowdata) {
	$worksheet->write($rows_output,$cols_output++,$cell->{'value'});
	}
	$rows_output++;
	}
	return;
	}

	############################################
	## XML output routines ##
	############################################
sub outsheet_xml {	sub outsheet_xml {
my ($sheet,$r) = @_;	my ($sheet,$r) = @_;
	## Someday XML
	## Will be rendered for the user
	## But not on this day
}	}

	##
	## Outsheet - calls other outsheet_* functions
	##
sub outsheet {	sub outsheet {
my ($r,$sheet)=@_;	my ($sheet,$r)=@_;
if (exists($ENV{'form.showcsv'})) {	if (! exists($ENV{'form.output'})) {
	$ENV{'form.output'} = 'HTML';
	}
	if (lc($ENV{'form.output'}) eq 'csv') {
&outsheet_csv($sheet,$r);	&outsheet_csv($sheet,$r);
# } elsif (exists($ENV{'form.excel'})) {	} elsif (lc($ENV{'form.output'}) eq 'excel') {
# &outsheet_excel($sheet,$r);	&outsheet_excel($sheet,$r);
# } elsif (exists($ENV{'form.xml'})) {	} elsif (lc($ENV{'form.output'}) eq 'recursive excel') {
	&outsheet_recursive_excel($sheet,$r);
	# } elsif (lc($ENV{'form.output'}) eq 'xml' ) {
# &outsheet_xml($sheet,$r);	# &outsheet_xml($sheet,$r);
} else {	} else {
&outsheet_html($sheet,$r);	&outsheet_html($sheet,$r);
Line 1491 sub readsheet {	Line 1828 sub readsheet {
if ($fh=Apache::File->new($includedir.'/'.$dfn)) {	if ($fh=Apache::File->new($includedir.'/'.$dfn)) {
$sheetxml=join('',<$fh>);	$sheetxml=join('',<$fh>);
} else {	} else {
$sheetxml='<field row="0" col="A">"Error"</field>';	# $sheetxml='<field row="0" col="A">"Error"</field>';
	$sheetxml='<field row="0" col="A"></field>';
}	}
%f=%{&parse_sheet(\$sheetxml)};	%f=%{&parse_sheet(\$sheetxml)};
} elsif($fn=~/\/*\.spreadsheet$/) {	} elsif($fn=~/\/*\.spreadsheet$/) {
Line 1503 sub readsheet {	Line 1841 sub readsheet {
}	}
%f=%{&parse_sheet(\$sheetxml)};	%f=%{&parse_sheet(\$sheetxml)};
} else {	} else {
my $sheet='';
my %tmphash = &Apache::lonnet::dump($fn,$cdom,$cnum);	my %tmphash = &Apache::lonnet::dump($fn,$cdom,$cnum);
my ($tmp) = keys(%tmphash);	my ($tmp) = keys(%tmphash);
unless ($tmp =~ /^(con_lost\|error\|no_such_host)/i) {	if ($tmp !~ /^(con_lost\|error\|no_such_host)/i) {
foreach (keys(%tmphash)) {	foreach (keys(%tmphash)) {
$f{$_}=$tmphash{$_};	$f{$_}=$tmphash{$_};
}	}
	} else {
	# Unable to grab the specified spreadsheet,
	# so we get the default ones instead.
	$fn = 'default_'.$stype;
	$sheet->{'filename'} = $fn;
	my $dfn = $fn;
	$dfn =~ s/\_/\./g;
	my $sheetxml;
	if (my $fh=Apache::File->new($includedir.'/'.$dfn)) {
	$sheetxml = join('',<$fh>);
	} else {
	$sheetxml='<field row="0" col="A">'.
	'"Unable to load spreadsheet"</field>';
	}
	%f=%{&parse_sheet(\$sheetxml)};
}	}
}	}
# Cache and set	# Cache and set
Line 1527 sub makenewsheet {	Line 1879 sub makenewsheet {
$sheet->{'udom'} = $udom;	$sheet->{'udom'} = $udom;
$sheet->{'sheettype'} = $stype;	$sheet->{'sheettype'} = $stype;
$sheet->{'usymb'} = $usymb;	$sheet->{'usymb'} = $usymb;
	$sheet->{'mapid'} = $ENV{'form.mapid'};
	$sheet->{'resid'} = $ENV{'form.resid'};
$sheet->{'cid'} = $ENV{'request.course.id'};	$sheet->{'cid'} = $ENV{'request.course.id'};
$sheet->{'csec'} = $Section{$uname.':'.$udom};	$sheet->{'csec'} = $Section{$uname.':'.$udom};
$sheet->{'coursefilename'} = $ENV{'request.course.fn'};	$sheet->{'coursefilename'} = $ENV{'request.course.fn'};
$sheet->{'cnum'} = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};	$sheet->{'cnum'} = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
$sheet->{'cdom'} = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};	$sheet->{'cdom'} = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
$sheet->{'chome'} = $ENV{'course.'.$ENV{'request.course.id'}.'.home'};	$sheet->{'chome'} = $ENV{'course.'.$ENV{'request.course.id'}.'.home'};
	$sheet->{'coursedesc'} = $ENV{'course.'.$ENV{'request.course.id'}.
	'.description'};
$sheet->{'uhome'} = &Apache::lonnet::homeserver($uname,$udom);	$sheet->{'uhome'} = &Apache::lonnet::homeserver($uname,$udom);
#	#
#	#
Line 1579 sub writesheet {	Line 1935 sub writesheet {
$cdom,$cnum);	$cdom,$cnum);
if ($reply eq 'ok') {	if ($reply eq 'ok') {
if ($makedef) {	if ($makedef) {
return &Apache::lonnet::put('environment',	$reply = &Apache::lonnet::put('environment',
{'spreadsheet_default_'.$stype => $fn },	{'spreadsheet_default_'.$stype => $fn },
$cdom,$cnum);	$cdom,$cnum);
	if ($reply eq 'ok' &&
	($sheet->{'sheettype'} eq 'studentcalc' \|\|
	$sheet->{'sheettype'} eq 'assesscalc')) {
	# Expire the spreadsheets of the other students.
	&Apache::lonnet::expirespread('','','studentcalc','');
	}
	return $reply;
}	}
return $reply;	return $reply;
}	}
Line 1604 sub tmpwrite {	Line 1967 sub tmpwrite {
$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($sheet));	my %f = &getformulas($sheet);
	while( my ($cell,$formula) = each(%f)) {
	print $fh &Apache::lonnet::escape($cell)."=".&Apache::lonnet::escape($formula)."\n";
	}
}	}
}	}

Line 1620 sub tmpread {	Line 1986 sub tmpread {
my %fo=();	my %fo=();
my $countrows=0;	my $countrows=0;
if ($fh=Apache::File->new($fn)) {	if ($fh=Apache::File->new($fn)) {
my $name;	while (<$fh>) {
while ($name=<$fh>) {	chomp;
chomp($name);	my ($cell,$formula) = split(/=/);
my $value=<$fh>;	$cell = &Apache::lonnet::unescape($cell);
chomp($value);	$formula = &Apache::lonnet::unescape($formula);
$fo{$name}=$value;	$fo{$cell} = $formula;
if ($name=~/^A(\d+)$/) {	}
if ($1>$countrows) {	}
$countrows=$1;	# chomp($value);
}	# $fo{$name}=$value;
}	# if ($name=~/^A(\d+)$/) {
}	# if ($1>$countrows) {
}	# $countrows=$1;
	# }
	# }
	# }
	# }
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};
}	}
} elsif ($nfield eq 'insertrow') {	# } elsif ($nfield eq 'insertrow') {
$countrows++;	# $countrows++;
my $newrow=substr('000000'.$countrows,-7);	# my $newrow=substr('000000'.$countrows,-7);
if ($nform eq 'top') {	# if ($nform eq 'top') {
$fo{'A'.$countrows}='--- '.$newrow;	# $fo{'A'.$countrows}='--- '.$newrow;
} else {	# } else {
$fo{'A'.$countrows}='~~~ '.$newrow;	# $fo{'A'.$countrows}='~~~ '.$newrow;
}	# }
} else {	} else {
if ($nfield) { $fo{$nfield}=$nform; }	if ($nfield) { $fo{$nfield}=$nform; }
}	}
Line 1733 sub parmval {	Line 2103 sub parmval {
## Row label formatting routines ##	## Row label formatting routines ##
##################################################################	##################################################################
sub format_html_rowlabel {	sub format_html_rowlabel {
	my $sheet = shift;
my $rowlabel = shift;	my $rowlabel = shift;
return '' if ($rowlabel eq '');	return '' if ($rowlabel eq '');
my ($type,$labeldata) = split(':',$rowlabel,2);	my ($type,$labeldata) = split(':',$rowlabel,2);
my $result = '';	my $result = '';
if ($type eq 'symb') {	if ($type eq 'symb') {
my ($symb,$uname,$udom,$title) = split(':',$labeldata);	my ($symb,$mapid,$resid,$title,$ufn) = split(':',$labeldata);
$symb = &Apache::lonnet::unescape($symb);	$ufn = 'default' if (!defined($ufn) \|\| $ufn eq '');
	$ufn = &Apache::lonnet::unescape($ufn);
	$symb = &Apache::lonnet::unescape($symb);
	$title = &Apache::lonnet::unescape($title);
$result = '<a href="/adm/assesscalc?usymb='.$symb.	$result = '<a href="/adm/assesscalc?usymb='.$symb.
'&uname='.$uname.'&udom='.$udom.'">'.$title.'</a>';	'&uname='.$sheet->{'uname'}.'&udom='.$sheet->{'udom'}.
	'&ufn='.$ufn.
	'&mapid='.$mapid.'&resid='.$resid.'">'.$title.'</a>';
} elsif ($type eq 'student') {	} elsif ($type eq 'student') {
my ($sname,$sdom,$fullname,$section,$id) = split(':',$labeldata);	my ($sname,$sdom,$fullname,$section,$id) = split(':',$labeldata);
	if ($fullname =~ /^\s*$/) {
	$fullname = $sname.'@'.$sdom;
	}
$result ='<a href="/adm/studentcalc?uname='.$sname.	$result ='<a href="/adm/studentcalc?uname='.$sname.
'&udom='.$sdom.'">';	'&udom='.$sdom.'">';
$result.=$section.' '.$id." ".$fullname.'</a>';	$result.=$section.' '.$id." ".$fullname.'</a>';
Line 1756 sub format_html_rowlabel {	Line 2135 sub format_html_rowlabel {
}	}

sub format_csv_rowlabel {	sub format_csv_rowlabel {
	my $sheet = shift;
my $rowlabel = shift;	my $rowlabel = shift;
return '' if ($rowlabel eq '');	return '' if ($rowlabel eq '');
my ($type,$labeldata) = split(':',$rowlabel,2);	my ($type,$labeldata) = split(':',$rowlabel,2);
my $result = '';	my $result = '';
if ($type eq 'symb') {	if ($type eq 'symb') {
my ($symb,$uname,$udom,$title) = split(':',$labeldata);	my ($symb,$mapid,$resid,$title,$ufn) = split(':',$labeldata);
$symb = &Apache::lonnet::unescape($symb);	$ufn = &Apache::lonnet::unescape($ufn);
	$symb = &Apache::lonnet::unescape($symb);
	$title = &Apache::lonnet::unescape($title);
$result = $title;	$result = $title;
} elsif ($type eq 'student') {	} elsif ($type eq 'student') {
my ($sname,$sdom,$fullname,$section,$id) = split(':',$labeldata);	my ($sname,$sdom,$fullname,$section,$id) = split(':',$labeldata);
Line 1776 sub format_csv_rowlabel {	Line 2158 sub format_csv_rowlabel {
return '"'.$result.'"';	return '"'.$result.'"';
}	}

sub format_plain_rowlabel {	sub format_excel_rowlabel {
	my $sheet = shift;
my $rowlabel = shift;	my $rowlabel = shift;
return '' if ($rowlabel eq '');	return '' if ($rowlabel eq '');
my ($type,$labeldata) = split(':',$rowlabel,2);	my ($type,$labeldata) = split(':',$rowlabel,2);
my $result = '';	my $result = '';
if ($type eq 'symb') {	if ($type eq 'symb') {
my ($symb,$uname,$udom,$title) = split(':',$labeldata);	my ($symb,$mapid,$resid,$title,$ufn) = split(':',$labeldata);
$symb = &Apache::lonnet::unescape($symb);	$ufn = &Apache::lonnet::unescape($ufn);
	$symb = &Apache::lonnet::unescape($symb);
	$title = &Apache::lonnet::unescape($title);
$result = $title;	$result = $title;
} elsif ($type eq 'student') {	} elsif ($type eq 'student') {
my ($sname,$sdom,$fullname,$section,$id) = split(':',$labeldata);	my ($sname,$sdom,$fullname,$section,$id) = split(':',$labeldata);
$result = '"'.	$section = '' if (! defined($section));
join('","',($sname,$sdom,$fullname,$section,$id).'"');	$id = '' if (! defined($id));
	my @Data = ($sname,$sdom,$fullname,$section,$id);
	$result = \@Data;
} elsif ($type eq 'parameter') {	} elsif ($type eq 'parameter') {
$labeldata =~ s/<br>/ /g;	$labeldata =~ s/<br>/ /g;
$result = $labeldata;	$result = $labeldata;
Line 1807 sub updateclasssheet {	Line 2194 sub updateclasssheet {
my $chome =$sheet->{'chome'};	my $chome =$sheet->{'chome'};
#	#
%Section = ();	%Section = ();

#	#
# Read class list and row labels	# Read class list and row labels
my $classlist = &Apache::loncoursedata::get_classlist();	my $classlist = &Apache::loncoursedata::get_classlist();
Line 1819 sub updateclasssheet {	Line 2205 sub updateclasssheet {
foreach my $student (keys(%$classlist)) {	foreach my $student (keys(%$classlist)) {
my ($studentDomain,$studentName,$end,$start,$id,$studentSection,	my ($studentDomain,$studentName,$end,$start,$id,$studentSection,
$fullname,$status) = @{$classlist->{$student}};	$fullname,$status) = @{$classlist->{$student}};
	$Section{$studentName.':'.$studentDomain} = $studentSection;
if ($ENV{'form.Status'} eq $status \|\| $ENV{'form.Status'} eq 'Any') {	if ($ENV{'form.Status'} eq $status \|\| $ENV{'form.Status'} eq 'Any') {
$currentlist{$student}=join(':',('student',$studentName,	$currentlist{$student}=join(':',('student',$studentName,
$studentDomain,$fullname,	$studentDomain,$fullname,
Line 1866 sub updateclasssheet {	Line 2253 sub updateclasssheet {
}	}

# ----------------------------------- Update rows for student and assess sheets	# ----------------------------------- Update rows for student and assess sheets
sub updatestudentassesssheet {	sub get_student_rowlabels {
	my ($sheet) = @_;
	#
	my %course_db;
	#
	my $stype = $sheet->{'sheettype'};
	my $uname = $sheet->{'uname'};
	my $udom = $sheet->{'udom'};
	#
	$sheet->{'rowlabel'} = {};
	#
	my $identifier =$sheet->{'coursefilename'}.'_'.$stype;
	if ($rowlabel_cache{$identifier}) {
	%{$sheet->{'rowlabel'}}=split(/___;___/,$rowlabel_cache{$identifier});
	} else {
	# Get the data and store it in the cache
	# Tie hash
	tie(%course_db,'GDBM_File',$sheet->{'coursefilename'}.'.db',
	&GDBM_READER(),0640);
	if (! tied(%course_db)) {
	return 'Could not access course data';
	}
	#
	my %assesslist = ();
	foreach ('Feedback','Evaluation','Tutoring','Discussion') {
	my $symb = '_'.lc($_);
	$assesslist{$symb} = join(':',('symb',$symb,0,0,
	&Apache::lonnet::escape($_)));
	}
	#
	while (my ($key,$srcf) = each(%course_db)) {
	next if ($key !~ /^src_(\d+)\.(\d+)$/);
	my $mapid = $1;
	my $resid = $2;
	my $id = $mapid.'.'.$resid;
	if ($srcf=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {
	my $symb=
	&Apache::lonnet::declutter($course_db{'map_id_'.$mapid}).
	'___'.$resid.'___'.&Apache::lonnet::declutter($srcf);
	$assesslist{$symb} ='symb:'.&Apache::lonnet::escape($symb).':'
	.$mapid.':'.$resid.':'.
	&Apache::lonnet::escape($course_db{'title_'.$id});
	}
	}
	untie(%course_db);
	# Store away the data
	$sheet->{'rowlabel'} = \%assesslist;
	$rowlabel_cache{$identifier}=join('___;___',%{$sheet->{'rowlabel'}});
	}

	}

	sub get_assess_rowlabels {
my ($sheet) = @_;	my ($sheet) = @_;
#	#
my %bighash;	my %course_db;
#	#
my $stype = $sheet->{'sheettype'};	my $stype = $sheet->{'sheettype'};
my $uname = $sheet->{'uname'};	my $uname = $sheet->{'uname'};
my $udom = $sheet->{'udom'};	my $udom = $sheet->{'udom'};
	my $usymb = $sheet->{'usymb'};
	#
$sheet->{'rowlabel'} = {};	$sheet->{'rowlabel'} = {};
my $identifier =$sheet->{'coursefilename'}.'_'.$stype.'_'.$uname.'_'.$udom;	my $identifier =$sheet->{'coursefilename'}.'_'.$stype.'_'.$usymb;
if ($updatedata{$identifier}) {	#
%{$sheet->{'rowlabel'}}=split(/___;___/,$updatedata{$identifier});	if ($rowlabel_cache{$identifier}) {
	%{$sheet->{'rowlabel'}}=split(/___;___/,$rowlabel_cache{$identifier});
} else {	} else {
	# Get the data and store it in the cache
# Tie hash	# Tie hash
tie(%bighash,'GDBM_File',$sheet->{'coursefilename'}.'.db',	tie(%course_db,'GDBM_File',$sheet->{'coursefilename'}.'.db',
&GDBM_READER(),0640);	&GDBM_READER(),0640);
if (! tied(%bighash)) {	if (! tied(%course_db)) {
return 'Could not access course data';	return 'Could not access course data';
}	}
# Get all assessments
#	#
# parameter_labels is used in the assessment sheets to provide labels
# for the parameters.
my %parameter_labels=	my %parameter_labels=
('timestamp' =>	('timestamp' =>
'parameter:Timestamp of Last Transaction<br>timestamp',	'parameter:Timestamp of Last Transaction<br>timestamp',
Line 1898 sub updatestudentassesssheet {	Line 2338 sub updatestudentassesssheet {
'parameter:Number of Tutor Responses<br>tutornumber',	'parameter:Number of Tutor Responses<br>tutornumber',
'totalpoints' =>	'totalpoints' =>
'parameter:Total Points Granted<br>totalpoints');	'parameter:Total Points Granted<br>totalpoints');
#	while (my ($key,$srcf) = each(%course_db)) {
# assesslist holds the descriptions of all assessments	next if ($key !~ /^src_(\d+)\.(\d+)$/);
my %assesslist;	my $mapid = $1;
foreach ('Feedback','Evaluation','Tutoring','Discussion') {	my $resid = $2;
my $symb = '_'.lc($_);	my $id = $mapid.'.'.$resid;
$assesslist{$symb} = join(':',('symb',$symb,$uname,$udom,$_));
}
while (($_,undef) = each(%bighash)) {
next if ($_!~/^src\_(\d+)\.(\d+)$/);
my $mapid=$1;
my $resid=$2;
my $id=$mapid.'.'.$resid;
my $srcf=$bighash{$_};
if ($srcf=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {	if ($srcf=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {
my $symb=	# Loop through the metadata for this key
&Apache::lonnet::declutter($bighash{'map_id_'.$mapid}).	my @Metadata = split(/,/,
'___'.$resid.'___'.&Apache::lonnet::declutter($srcf);	&Apache::lonnet::metadata($srcf,'keys'));
$assesslist{$symb}='symb:'.&Apache::lonnet::escape($symb).':'	foreach my $key (@Metadata) {
.$uname.':'.$udom.':'.$bighash{'title_'.$id};
next if ($stype ne 'assesscalc');
foreach my $key (split(/\,/,
&Apache::lonnet::metadata($srcf,'keys')
)) {
next if ($key !~ /^(stores\|parameter)_/);	next if ($key !~ /^(stores\|parameter)_/);
my $display=	my $display=
&Apache::lonnet::metadata($srcf,$key.'.display');	&Apache::lonnet::metadata($srcf,$key.'.display');
Line 1932 sub updatestudentassesssheet {	Line 2359 sub updatestudentassesssheet {
$parameter_labels{$key}='parameter:'.$display;	$parameter_labels{$key}='parameter:'.$display;
} # end of foreach	} # end of foreach
}	}
} # end of foreach (keys(%bighash))	}
untie(%bighash);	untie(%course_db);
#	# Store away the results
# %parameter_labels has a list of storage and parameter displays by	$sheet->{'rowlabel'} = \%parameter_labels;
# unikey	$rowlabel_cache{$identifier}=join('___;___',%{$sheet->{'rowlabel'}});
# %assesslist has a list of all resource, by symb
#
if ($stype eq 'assesscalc') {
$sheet->{'rowlabel'} = \%parameter_labels;
} elsif ($stype eq 'studentcalc') {
$sheet->{'rowlabel'} = \%assesslist;
}
$updatedata{$sheet->{'coursefilename'}.'_'.$stype.'_'
.$uname.'_'.$udom}=
join('___;___',%{$sheet->{'rowlabel'}});
# Get current from cache
}	}
# Find discrepancies between the course row table and this
#	}

	sub updatestudentassesssheet {
	my $sheet = shift;
	if ($sheet->{'sheettype'} eq 'studentcalc') {
	&get_student_rowlabels($sheet);
	} else {
	&get_assess_rowlabels($sheet);
	}
	# Determine if any of the information has changed
my %f=&getformulas($sheet);	my %f=&getformulas($sheet);
my $changed=0;	my $changed=0;

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

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

sub loadstudent {	sub loadstudent{
my ($sheet)=@_;	my ($sheet,$r,$c)=@_;
my %c=();	my %constants=();
my %f=&getformulas($sheet);	my %formulas=&getformulas($sheet);
$cachedassess=$sheet->{'uname'}.':'.$sheet->{'udom'};	$cachedassess=$sheet->{'uname'}.':'.$sheet->{'udom'};
# Get ALL the student preformance data	# Get ALL the student preformance data
my @tmp = &Apache::lonnet::dump($sheet->{'cid'},	my @tmp = &Apache::lonnet::currentdump($sheet->{'cid'},
$sheet->{'udom'},	$sheet->{'udom'},
$sheet->{'uname'},	$sheet->{'uname'});
undef);	if ((scalar @tmp > 0) && ($tmp[0] !~ /^error:/)) {
if ($tmp[0] !~ /^error:/) {
%cachedstores = @tmp;	%cachedstores = @tmp;
}	}
undef @tmp;	undef @tmp;
#	#
my @assessdata=();	my @assessdata=();
foreach (keys(%f)) {	foreach my $cell (keys(%formulas)) {
next if ($_!~/^A(\d+)/);	my $value = $formulas{$cell};
	if(defined($c) && ($c->aborted())) {
	last;
	}
	next if ($cell !~ /^A(\d+)/);
my $row=$1;	my $row=$1;
next if (($f{$_}=~/^[\!\~\-]/) \|\| ($row==0));	next if (($value =~ /^[!~-]/) \|\| ($row==0));
my ($usy,$ufn)=split(/__&&&\__/,$f{$_});	my ($usy,$ufn)=split(/__&&&\__/,$value);
@assessdata=&exportsheet($sheet,$sheet->{'uname'},	@assessdata=&exportsheet($sheet,$sheet->{'uname'},
$sheet->{'udom'},	$sheet->{'udom'},
'assesscalc',$usy,$ufn);	'assesscalc',$usy,$ufn,$r);
my $index=0;	my $index=0;
foreach ('A','B','C','D','E','F','G','H','I','J','K','L','M',	foreach my $col ('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 ($assessdata[$index]) {	if (defined($assessdata[$index])) {
my $col=$_;
if ($assessdata[$index]=~/\D/) {	if ($assessdata[$index]=~/\D/) {
$c{$col.$row}="'".$assessdata[$index]."'";	$constants{$col.$row}="'".$assessdata[$index]."'";
} else {	} else {
$c{$col.$row}=$assessdata[$index];	$constants{$col.$row}=$assessdata[$index];
}
unless ($col eq 'A') {
$f{$col.$row}='import';
}	}
	$formulas{$col.$row}='import' if ($col ne 'A');
}	}
$index++;	$index++;
}	}
}	}
$cachedassess='';	$cachedassess='';
undef %cachedstores;	undef %cachedstores;
$sheet->{'f'} = \%f;	$sheet->{'f'} = \%formulas;
&setformulas($sheet);	&setformulas($sheet);
&setconstants($sheet,\%c);	&setconstants($sheet,\%constants);
}	}

# --------------------------------------------------- Load data for one student	# --------------------------------------------------- Load data for one student
#	#
sub loadcourse {	sub loadcourse {
my ($sheet,$r)=@_;	my ($sheet,$r,$c)=@_;
my %c=();	#
my %f=&getformulas($sheet);	my %constants=();
	my %formulas=&getformulas($sheet);
	#
my $total=0;	my $total=0;
foreach (keys(%f)) {	foreach (keys(%formulas)) {
if ($_=~/^A(\d+)/) {	if ($_=~/^A(\d+)/) {
unless ($f{$_}=~/^[\!\~\-]/) { $total++; }	unless ($formulas{$_}=~/^[\!\~\-]/) { $total++; }
}	}
}	}
my $now=0;	my $now=0;
Line 2066 sub loadcourse {	Line 2487 sub loadcourse {
</script>	</script>
ENDPOP	ENDPOP
$r->rflush();	$r->rflush();
foreach (keys(%f)) {	foreach (keys(%formulas)) {
	if(defined($c) && ($c->aborted())) {
	last;
	}
next if ($_!~/^A(\d+)/);	next if ($_!~/^A(\d+)/);
my $row=$1;	my $row=$1;
next if (($f{$_}=~/^[\!\~\-]/) \|\| ($row==0));	next if (($formulas{$_}=~/^[\!\~\-]/) \|\| ($row==0));
my ($sname,$sdom) = split(':',$f{$_});	my ($sname,$sdom) = split(':',$formulas{$_});
my @studentdata=&exportsheet($sheet,$sname,$sdom,'studentcalc');	my @studentdata=&exportsheet($sheet,$sname,$sdom,'studentcalc',
	undef,undef,$r);
undef %userrdatas;	undef %userrdatas;
$now++;	$now++;
$r->print('<script>popwin.document.popremain.remaining.value="'.	$r->print('<script>popwin.document.popremain.remaining.value="'.
Line 2085 ENDPOP	Line 2510 ENDPOP
if (defined($studentdata[$index])) {	if (defined($studentdata[$index])) {
my $col=$_;	my $col=$_;
if ($studentdata[$index]=~/\D/) {	if ($studentdata[$index]=~/\D/) {
$c{$col.$row}="'".$studentdata[$index]."'";	$constants{$col.$row}="'".$studentdata[$index]."'";
} else {	} else {
$c{$col.$row}=$studentdata[$index];	$constants{$col.$row}=$studentdata[$index];
}	}
unless ($col eq 'A') {	unless ($col eq 'A') {
$f{$col.$row}='import';	$formulas{$col.$row}='import';
}	}
}	}
$index++;	$index++;
}	}
}	}
$sheet->{'f'}=\%f;	$sheet->{'f'}=\%formulas;
&setformulas($sheet);	&setformulas($sheet);
&setconstants($sheet,\%c);	&setconstants($sheet,\%constants);
$r->print('<script>popwin.close()</script>');	$r->print('<script>popwin.close()</script>');
$r->rflush();	$r->rflush();
}	}
Line 2106 ENDPOP	Line 2531 ENDPOP
# ------------------------------------------------ Load data for one assessment	# ------------------------------------------------ Load data for one assessment
#	#
sub loadassessment {	sub loadassessment {
my ($sheet)=@_;	my ($sheet,$r,$c)=@_;

my $uhome = $sheet->{'uhome'};	my $uhome = $sheet->{'uhome'};
my $uname = $sheet->{'uname'};	my $uname = $sheet->{'uname'};
Line 2125 sub loadassessment {	Line 2550 sub loadassessment {
#	#
# get data out of the dumped stores	# get data out of the dumped stores
#	#
my $version=$cachedstores{'version:'.$symb};	if (exists($cachedstores{$symb})) {
my $scope;	%returnhash = %{$cachedstores{$symb}};
for ($scope=1;$scope<=$version;$scope++) {	} else {
foreach (split(/\:/,$cachedstores{$scope.':keys:'.$symb})) {	%returnhash = ();
$returnhash{$_}=$cachedstores{$scope.':'.$symb.':'.$_};
}
}	}
} else {	} else {
#	#
# restore individual	# restore individual
#	#
%returnhash = &Apache::lonnet::restore($symb,$namespace,$udom,$uname);	%returnhash = &Apache::lonnet::restore($symb,$namespace,$udom,$uname);
for (my $version=1;$version<=$returnhash{'version'};$version++) {
foreach (split(/\:/,$returnhash{$version.':keys'})) {
$returnhash{$_}=$returnhash{$version.':'.$_};
}
}
}	}
#	#
# returnhash now has all stores for this resource	# returnhash now has all stores for this resource
Line 2256 sub selectbox {	Line 2674 sub selectbox {

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

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

Line 2285 sub loadrows {	Line 2703 sub loadrows {

sub checkthis {	sub checkthis {
my ($keyname,$time)=@_;	my ($keyname,$time)=@_;
return ($time<$expiredates{$keyname});	if (! exists($expiredates{$keyname})) {
	return 0;
	} else {
	return ($time<$expiredates{$keyname});
	}
}	}

sub forcedrecalc {	sub forcedrecalc {
Line 2303 sub forcedrecalc {	Line 2725 sub forcedrecalc {
&checkthis($uname.':'.$udom.':assesscalc:'.$map,$time) \|\|	&checkthis($uname.':'.$udom.':assesscalc:'.$map,$time) \|\|
&checkthis($uname.':'.$udom.':assesscalc:'.$usymb,$time)) {	&checkthis($uname.':'.$udom.':assesscalc:'.$usymb,$time)) {
return 1;	return 1;
}	}
} else {	} else {
if (&checkthis('::studentcalc:',$time) \|\|	if (&checkthis('::studentcalc:',$time) \|\|
&checkthis($uname.':'.$udom.':studentcalc:',$time)) {	&checkthis($uname.':'.$udom.':studentcalc:',$time)) {
Line 2318 sub forcedrecalc {	Line 2740 sub forcedrecalc {
# returns the export row for a spreadsheet.	# returns the export row for a spreadsheet.
#	#
sub exportsheet {	sub exportsheet {
my ($sheet,$uname,$udom,$stype,$usymb,$fn)=@_;	my ($sheet,$uname,$udom,$stype,$usymb,$fn,$r)=@_;
	my $flag = 0;
$uname = $uname \|\| $sheet->{'uname'};	$uname = $uname \|\| $sheet->{'uname'};
$udom = $udom \|\| $sheet->{'udom'};	$udom = $udom \|\| $sheet->{'udom'};
$stype = $stype \|\| $sheet->{'sheettype'};	$stype = $stype \|\| $sheet->{'sheettype'};
my @exportarr=();	my @exportarr=();
	# This handles the assessment sheets for '_feedback', etc
if (defined($usymb) && ($usymb=~/^\_(\w+)/) &&	if (defined($usymb) && ($usymb=~/^\_(\w+)/) &&
(!defined($fn) \|\| $fn eq '')) {	(!defined($fn) \|\| $fn eq '')) {
$fn='default_'.$1;	$fn='default_'.$1;
Line 2368 sub exportsheet {	Line 2792 sub exportsheet {
}	}
#	#
# Not cached	# Not cached
#	#
my ($newsheet)=&makenewsheet($uname,$udom,$stype,$usymb);	my ($newsheet)=&makenewsheet($uname,$udom,$stype,$usymb);
&readsheet($newsheet,$fn);	&readsheet($newsheet,$fn);
&updatesheet($newsheet);	&updatesheet($newsheet);
&loadrows($newsheet);	&loadrows($newsheet,$r);
&calcsheet($newsheet);	&calcsheet($newsheet);
@exportarr=&exportdata($newsheet);	@exportarr=&exportdata($newsheet);
##	##
Line 2387 sub exportsheet {	Line 2811 sub exportsheet {
[$key],	[$key],
$sheet->{'cdom'},$sheet->{'cnum'});	$sheet->{'cdom'},$sheet->{'cnum'});
if ($tmp[0]!~/^error/) {	if ($tmp[0]!~/^error/) {
%currentlystored = @tmp;	# We only got one key, so we will access it directly.
	foreach (split('___&___',$tmp[1])) {
	my ($key,$value) = split('___=___',$_);
	$key = '' if (! defined($key));
	$currentlystored{$key} = $value;
	}
}	}
} else {	} else {
my @tmp = &Apache::lonnet::get('nohist_calculatedsheets_'.	my @tmp = &Apache::lonnet::get('nohist_calculatedsheets_'.
$sheet->{'cid'},[$key],	$sheet->{'cid'},[$key],
$sheet->{'udom'},$sheet->{'uname'});	$sheet->{'udom'},$sheet->{'uname'});
if ($tmp[0]!~/^error/) {	if ($tmp[0]!~/^error/) {
%currentlystored = @tmp;	# We only got one key, so we will access it directly.
	foreach (split('___&___',$tmp[1])) {
	my ($key,$value) = split('___=___',$_);
	$key = '' if (! defined($key));
	$currentlystored{$key} = $value;
	}
}	}
}	}
#	#
Line 2413 sub exportsheet {	Line 2847 sub exportsheet {
#	#
# Store away the new value	# Store away the new value
#	#
	my $timekey = $key.'.time';
if ($stype eq 'studentcalc') {	if ($stype eq 'studentcalc') {
&Apache::lonnet::put('nohist_calculatedsheets',	my $result = &Apache::lonnet::put('nohist_calculatedsheets',
{ $key => $newstore,	{ $key => $newstore,
$key.time => $now },	$timekey => $now },
$sheet->{'cdom'},$sheet->{'cnum'});	$sheet->{'cdom'},
} else {	$sheet->{'cnum'});
&Apache::lonnet::put('nohist_calculatedsheets_'.$sheet->{'cid'},	} else {
{ $key => $newstore,	my $result = &Apache::lonnet::put('nohist_calculatedsheets_'.$sheet->{'cid'},
$key.time => $now },	{ $key => $newstore,
$sheet->{'udom'},	$timekey => $now },
$sheet->{'uname'})	$sheet->{'udom'},
	$sheet->{'uname'});
}	}
return @exportarr;	return @exportarr;
}	}
Line 2432 sub exportsheet {	Line 2868 sub exportsheet {
#	#
# Load previously cached student spreadsheets for this course	# Load previously cached student spreadsheets for this course
#	#
sub expirationdates {	sub load_spreadsheet_expirationdates {
undef %expiredates;	undef %expiredates;
my $cid=$ENV{'request.course.id'};	my $cid=$ENV{'request.course.id'};
my @tmp = &Apache::lonnet::dump('nohist_expirationdates',	my @tmp = &Apache::lonnet::dump('nohist_expirationdates',
$ENV{'course.'.$cid.'.domain'},	$ENV{'course.'.$cid.'.domain'},
$ENV{'course.'.$cid.'.num'});	$ENV{'course.'.$cid.'.num'});
if (lc($tmp[0])!~/^error/){	if (lc($tmp[0]) !~ /^error/){
%expiredates = @tmp;	%expiredates = @tmp;
}	}
}	}
Line 2470 sub cachedssheets {	Line 2906 sub cachedssheets {
my ($sheet,$uname,$udom) = @_;	my ($sheet,$uname,$udom) = @_;
$uname = $uname \|\| $sheet->{'uname'};	$uname = $uname \|\| $sheet->{'uname'};
$udom = $udom \|\| $sheet->{'udom'};	$udom = $udom \|\| $sheet->{'udom'};
if (! $loadedcaches{$sheet->{'uname'}.'_'.$sheet->{'udom'}}) {	if (! $loadedcaches{$uname.'_'.$udom}) {
my @tmp = &Apache::lonnet::dump('nohist_calculatedsheets',	my @tmp = &Apache::lonnet::dump('nohist_calculatedsheets_'.
	$ENV{'request.course.id'},
$sheet->{'udom'},	$sheet->{'udom'},
$sheet->{'uname'});	$sheet->{'uname'});
if ($tmp[0] !~ /^error/) {	if ($tmp[0] !~ /^error/) {
my %StupidTempHash = @tmp;	my %TempHash = @tmp;
while (my ($key,$value) = each %StupidTempHash) {	my $count = 0;
	while (my ($key,$value) = each %TempHash) {
$oldsheets{$key} = $value;	$oldsheets{$key} = $value;
	$count++;
}	}
$loadedcaches{$sheet->{'uname'}.'_'.$sheet->{'udom'}}=1;	$loadedcaches{$sheet->{'uname'}.'_'.$sheet->{'udom'}}=1;
}	}
}	}

}	}

# ===================================================== Calculated sheets cache	# ===================================================== Calculated sheets cache
Line 2497 sub cachedssheets {	Line 2937 sub cachedssheets {
sub handler {	sub handler {
my $r=shift;	my $r=shift;

	my ($sheettype) = ($r->uri=~/\/(\w+)$/);

if (! exists($ENV{'form.Status'})) {	if (! exists($ENV{'form.Status'})) {
$ENV{'form.Status'} = 'Active';	$ENV{'form.Status'} = 'Active';
}	}
	if ( ! exists($ENV{'form.output'}) \|\|
	($sheettype ne 'classcalc' &&
	lc($ENV{'form.output'}) eq 'recursive excel')) {
	$ENV{'form.output'} = 'HTML';
	}
	#
	# Overload checking
	#
# Check this server	# Check this server
my $loaderror=&Apache::lonnet::overloaderror($r);	my $loaderror=&Apache::lonnet::overloaderror($r);
if ($loaderror) { return $loaderror; }	if ($loaderror) { return $loaderror; }
Line 2507 sub handler {	Line 2957 sub handler {
$loaderror= &Apache::lonnet::overloaderror($r,	$loaderror= &Apache::lonnet::overloaderror($r,
$ENV{'course.'.$ENV{'request.course.id'}.'.home'});	$ENV{'course.'.$ENV{'request.course.id'}.'.home'});
if ($loaderror) { return $loaderror; }	if ($loaderror) { return $loaderror; }
	#
	# HTML Header
	#
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;
return OK;	return OK;
}	}
	#
# Global directory configs	# Global directory configs
	#
$includedir = $r->dir_config('lonIncludes');	$includedir = $r->dir_config('lonIncludes');
$tmpdir = $r->dir_config('lonDaemons').'/tmp/';	$tmpdir = $r->dir_config('lonDaemons').'/tmp/';
	#
	# Roles Checking
	#
# Needs to be in a course	# Needs to be in a course
if (! $ENV{'request.course.fn'}) {	if (! $ENV{'request.course.fn'}) {
# Not in a course, or not allowed to modify parms	# Not in a course, or not allowed to modify parms
Line 2523 sub handler {	Line 2980 sub handler {
$r->uri.":opa:0:0:Cannot modify spreadsheet";	$r->uri.":opa:0:0:Cannot modify spreadsheet";
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;
}	}
	#
# Get query string for limited number of parameters	# Get query string for limited number of parameters
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	#
['uname','udom','usymb','ufn']);	&Apache::loncommon::get_unprocessed_cgi
	($ENV{'QUERY_STRING'},['uname','udom','usymb','ufn','mapid','resid']);
	#
	# Deal with restricted student permissions
	#
if ($ENV{'request.role'} =~ /^st\./) {	if ($ENV{'request.role'} =~ /^st\./) {
delete $ENV{'form.unewfield'} if (exists($ENV{'form.unewfield'}));	delete $ENV{'form.unewfield'} if (exists($ENV{'form.unewfield'}));
delete $ENV{'form.unewformula'} if (exists($ENV{'form.unewformula'}));	delete $ENV{'form.unewformula'} if (exists($ENV{'form.unewformula'}));
}	}
if (($ENV{'form.usymb'}=~/^\_(\w+)/) && (!$ENV{'form.ufn'})) {	#
	# Look for special assessment spreadsheets - '_feedback', etc.
	#
	if (($ENV{'form.usymb'}=~/^\_(\w+)/) && (!$ENV{'form.ufn'} \|\|
	$ENV{'form.ufn'} eq '' \|\|
	$ENV{'form.ufn'} eq 'default')) {
$ENV{'form.ufn'}='default_'.$1;	$ENV{'form.ufn'}='default_'.$1;
}	}
	if (!$ENV{'form.ufn'} \|\| $ENV{'form.ufn'} eq 'default') {
	$ENV{'form.ufn'}='course_default_'.$sheettype;
	}
	#
# Interactive loading of specific sheet?	# Interactive loading of specific sheet?
	#
if (($ENV{'form.load'}) && ($ENV{'form.loadthissheet'} ne 'Default')) {	if (($ENV{'form.load'}) && ($ENV{'form.loadthissheet'} ne 'Default')) {
$ENV{'form.ufn'}=$ENV{'form.loadthissheet'};	$ENV{'form.ufn'}=$ENV{'form.loadthissheet'};
}	}
Line 2549 sub handler {	Line 3021 sub handler {
$adom=$ENV{'form.udom'};	$adom=$ENV{'form.udom'};
}	}
#	#
# Open page	# Open page, try to prevent browser cache.
	#
$r->content_type('text/html');	$r->content_type('text/html');
$r->header_out('Cache-control','no-cache');	$r->header_out('Cache-control','no-cache');
$r->header_out('Pragma','no-cache');	$r->header_out('Pragma','no-cache');
$r->send_http_header;	$r->send_http_header;
# Screen output	#
	# Header....
	#
$r->print('<html><head><title>LON-CAPA Spreadsheet</title>');	$r->print('<html><head><title>LON-CAPA Spreadsheet</title>');
	my $nothing = "''";
	if ($ENV{'browser.type'} eq 'explorer') {
	$nothing = "'javascript:void(0);'";
	}

if ($ENV{'request.role'} !~ /^st\./) {	if ($ENV{'request.role'} !~ /^st\./) {
$r->print(<<ENDSCRIPT);	$r->print(<<ENDSCRIPT);
<script language="JavaScript">	<script language="JavaScript">

function celledit(cn,cf) {	var editwin;
var cnf=prompt(cn,cf);
if (cnf!=null) {	function celledit(cellname,cellformula) {
document.sheet.unewfield.value=cn;	var edit_text = '';
document.sheet.unewformula.value=cnf;	// cellformula may contain less-than and greater-than symbols, so
document.sheet.submit();	// we need to escape them?
	edit_text +='<html><head><title>Cell Edit Window</title></head><body>';
	edit_text += '<form name="editwinform">';
	edit_text += '<center><h3>Cell '+cellname+'</h3>';
	edit_text += '<textarea name="newformula" cols="40" rows="6"';
	edit_text += ' wrap="off" >'+cellformula+'</textarea>';
	edit_text += '</br>';
	edit_text += '<input type="button" name="accept" value="Accept"';
	edit_text += ' onClick=\\\'javascript:';
	edit_text += 'opener.document.sheet.unewfield.value=';
	edit_text += '"'+cellname+'";';
	edit_text += 'opener.document.sheet.unewformula.value=';
	edit_text += 'document.editwinform.newformula.value;';
	edit_text += 'opener.document.sheet.submit();';
	edit_text += 'self.close()\\\' />';
	edit_text += '      ';
	edit_text += '<input type="button" name="abort" ';
	edit_text += 'value="Discard Changes"';
	edit_text += ' onClick="javascript:self.close()" />';
	edit_text += '</center></body></html>';

	if (editwin != null && !(editwin.closed) ) {
	editwin.close();
}	}

	editwin = window.open($nothing,'CellEditWin','height=200,width=350,scrollbars=no,resizeable=yes,alwaysRaised=yes,dependent=yes',true);
	editwin.document.write(edit_text);
}	}

function changesheet(cn) {	function changesheet(cn) {
Line 2585 sub handler {	Line 3090 sub handler {
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'}).
&hiddenfield('udom',$ENV{'form.udom'}).	&hiddenfield('udom',$ENV{'form.udom'}).
&hiddenfield('usymb',$ENV{'form.usymb'}).	&hiddenfield('usymb',$ENV{'form.usymb'}).
Line 2594 ENDSCRIPT	Line 3099 ENDSCRIPT
$r->rflush();	$r->rflush();
#	#
# Full recalc?	# Full recalc?
	#
if ($ENV{'form.forcerecalc'}) {	if ($ENV{'form.forcerecalc'}) {
$r->print('<h4>Completely Recalculating Sheet ...</h4>');	$r->print('<h4>Completely Recalculating Sheet ...</h4>');
undef %spreadsheets;	undef %spreadsheets;
undef %courserdatas;	undef %courserdatas;
undef %userrdatas;	undef %userrdatas;
undef %defaultsheets;	undef %defaultsheets;
undef %updatedata;	undef %rowlabel_cache;
}	}
# Read new sheet or modified worksheet	# Read new sheet or modified worksheet
$r->uri=~/\/(\w+)$/;	my ($sheet)=&makenewsheet($aname,$adom,$sheettype,$ENV{'form.usymb'});
my ($sheet)=&makenewsheet($aname,$adom,$1,$ENV{'form.usymb'});	#
	# Check user permissions
	if (($sheet->{'sheettype'} eq 'classcalc' ) \|\|
	($sheet->{'uname'} ne $ENV{'user.name'} ) \|\|
	($sheet->{'udom'} ne $ENV{'user.domain'})) {
	unless (&Apache::lonnet::allowed('vgr',$sheet->{'cid'})) {
	$r->print('<h1>Access Permission Denied</h1>'.
	'</form></body></html>');
	return OK;
	}
	}
	# Print out user information
	$r->print('<h2>'.$sheet->{'coursedesc'}.'</h2>');
	if ($sheet->{'sheettype'} ne 'classcalc') {
	$r->print('<h2>'.&gettitle($sheet).'</h2><p>');
	}
	if ($sheet->{'sheettype'} eq 'assesscalc') {
	$r->print('<b>User:</b> '.$sheet->{'uname'}.
	'<br /><b>Domain:</b> '.$sheet->{'udom'}.'<br />');
	}
	if ($sheet->{'sheettype'} eq 'studentcalc' \|\|
	$sheet->{'sheettype'} eq 'assesscalc') {
	$r->print('<b>Section/Group:</b>'.$sheet->{'csec'}.'</p>');
	}
#	#
# 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'}) {
$r->print('<h2>Modified Workcopy</h2>');	$r->print('<h2>Modified Workcopy</h2>');
$ENV{'form.unewformula'}=~s/\'/\"/g;	#$ENV{'form.unewformula'}=~s/\'/\"/g;
$r->print('<p>New formula: '.$ENV{'form.unewfield'}.'='.	$r->print('<p>Cell '.$ENV{'form.unewfield'}.' = <pre>');
$ENV{'form.unewformula'}.'<p>');	$r->print(&HTML::Entities::encode($ENV{'form.unewformula'}).
	'</pre></p>');
$sheet->{'filename'} = $ENV{'form.ufn'};	$sheet->{'filename'} = $ENV{'form.ufn'};
&tmpread($sheet,$ENV{'form.unewfield'},$ENV{'form.unewformula'});	&tmpread($sheet,$ENV{'form.unewfield'},$ENV{'form.unewformula'});
} elsif ($ENV{'form.saveas'}) {	} elsif ($ENV{'form.saveas'}) {
Line 2620 ENDSCRIPT	Line 3150 ENDSCRIPT
} else {	} else {
&readsheet($sheet,$ENV{'form.ufn'});	&readsheet($sheet,$ENV{'form.ufn'});
}	}
# Print out user information
if ($sheet->{'sheettype'} ne 'classcalc') {
$r->print('<p><b>User:</b> '.$sheet->{'uname'}.
'<br><b>Domain:</b> '.$sheet->{'udom'});
$r->print('<br><b>Section/Group:</b> '.$sheet->{'csec'});
if ($ENV{'form.usymb'}) {
$r->print('<br><b>Assessment:</b> <tt>'.
$ENV{'form.usymb'}.'</tt>');
}
}
#
# Check user permissions
if (($sheet->{'sheettype'} eq 'classcalc' ) \|\|
($sheet->{'uname'} ne $ENV{'user.name'} ) \|\|
($sheet->{'udom'} ne $ENV{'user.domain'})) {
unless (&Apache::lonnet::allowed('vgr',$sheet->{'cid'})) {
$r->print('<h1>Access Permission Denied</h1>'.
'</form></body></html>');
return OK;
}
}
# Additional options	# Additional options
$r->print('<br />'.
'<input type="submit" name="forcerecalc" '.
'value="Completely Recalculate Sheet"><p>');
if ($sheet->{'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='.$sheet->{'uname'}.	'uname='.$sheet->{'uname'}.
'&udom='.$sheet->{'udom'}.'">'.	'&udom='.$sheet->{'udom'}.'">'.
'Level up: Student Sheet</a></font><p>');	'Level up: Student Sheet</a></font></p>');
}	}
if (($sheet->{'sheettype'} eq 'studentcalc') &&	if (($sheet->{'sheettype'} eq 'studentcalc') &&
(&Apache::lonnet::allowed('vgr',$sheet->{'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>');
}	}
	# Recalc button
	$r->print('<br />'.
	'<input type="submit" name="forcerecalc" '.
	'value="Completely Recalculate Sheet"></p>');
# Save dialog	# Save dialog
if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) {	if (&Apache::lonnet::allowed('opa',$ENV{'request.course.id'})) {
my $fname=$ENV{'form.ufn'};	my $fname=$ENV{'form.ufn'};
Line 2685 ENDSCRIPT	Line 3195 ENDSCRIPT
&othersheets($sheet,'assesscalc'));	&othersheets($sheet,'assesscalc'));
}	}
}	}
# Cached sheets	#
&expirationdates();	# Set up caching mechanisms
undef %oldsheets;	#
undef %loadedcaches;	&load_spreadsheet_expirationdates();
	# Clear out old caches if we have not seen this class before.
	if (exists($oldsheets{'course'}) &&
	$oldsheets{'course'} ne $sheet->{'cid'}) {
	undef %oldsheets;
	undef %loadedcaches;
	}
	$oldsheets{'course'} = $sheet->{'cid'};
	#
if ($sheet->{'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();
Line 2728 ENDSCRIPT	Line 3246 ENDSCRIPT
}	}
#	#
# Write the modified worksheet	# Write the modified worksheet
$r->print('<b>Current sheet:</b> '.$sheet->{'filename'}.'<p>');	$r->print('<b>Current sheet:</b> '.$sheet->{'filename'}.'</p>');
&tmpwrite($sheet);	&tmpwrite($sheet);
if ($sheet->{'sheettype'} eq 'studentcalc') {	if ($sheet->{'sheettype'} eq 'assesscalc') {
$r->print('<br>Show rows with empty A column: ');	$r->print('<p>Show rows with empty A column: ');
} else {	} else {
$r->print('<br>Show empty rows: ');	$r->print('<p>Show empty rows: ');
}	}
#	#
$r->print(&hiddenfield('userselhidden','true').	$r->print(&hiddenfield('userselhidden','true').
Line 2752 ENDSCRIPT	Line 3270 ENDSCRIPT
}	}
$r->print('>');	$r->print('>');
#	#
# CSV format checkbox (classcalc sheets only)	# output format select box
$r->print(' Output CSV format: <input type="checkbox" '.	$r->print(' Output as <select name="output" size="1" onChange="submit()">'.
'name="showcsv" onClick="submit()"');	"\n");
$r->print(' checked') if ($ENV{'form.showcsv'});	foreach my $mode (qw/HTML CSV Excel/) {
$r->print('>');	$r->print('<option value="'.$mode.'"');
	if ($ENV{'form.output'} eq $mode) {
	$r->print(' selected ');
	}
	$r->print('>'.$mode.'</option>'."\n");
	}
	#
	# Mulit-sheet excel takes too long and does not work at all for large
	# classes. Future inclusion of this option may be possible with the
	# Spreadsheet::WriteExcel::Big and speed improvements.
	#
	# if ($sheet->{'sheettype'} eq 'classcalc') {
	# $r->print('<option value="recursive excel"');
	# if ($ENV{'form.output'} eq 'recursive excel') {
	# $r->print(' selected ');
	# }
	# $r->print(">Multi-Sheet Excel</option>\n");
	# }
	$r->print("</select>\n");
	#
if ($sheet->{'sheettype'} eq 'classcalc') {	if ($sheet->{'sheettype'} eq 'classcalc') {
$r->print(' Student Status: '.	$r->print(' Student Status: '.
&Apache::lonhtmlcommon::StatusOptions	&Apache::lonhtmlcommon::StatusOptions
Line 2764 ENDSCRIPT	Line 3301 ENDSCRIPT
}	}
#	#
# Buttons to insert rows	# Buttons to insert rows
$r->print(<<ENDINSERTBUTTONS);	# $r->print(<<ENDINSERTBUTTONS);
<br>	#<br>
<input type='button' onClick='insertrow("top");'	#<input type='button' onClick='insertrow("top");'
value='Insert Row Top'>	#value='Insert Row Top'>
<input type='button' onClick='insertrow("bottom");'	#<input type='button' onClick='insertrow("bottom");'
value='Insert Row Bottom'><br>	#value='Insert Row Bottom'><br>
ENDINSERTBUTTONS	#ENDINSERTBUTTONS
# Print out sheet	# Print out sheet
&outsheet($r,$sheet);	&outsheet($sheet,$r);
$r->print('</form></body></html>');	$r->print('</form></body></html>');
# Done	# Done
return OK;	return OK;
Line 2780 ENDINSERTBUTTONS	Line 3317 ENDINSERTBUTTONS

1;	1;
__END__	__END__

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

Removed from v.1.133
changed lines
	Added in v.1.163