loncom/interface/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.73, 2001/11/05 18:22:24	version 1.75, 2001/11/06 11:14:42
Line 1245 sub updatestudentassesssheet {	Line 1245 sub updatestudentassesssheet {
# --------------------------------------------------------- Get all assessments	# --------------------------------------------------------- Get all assessments

my %allkeys=('timestamp' =>	my %allkeys=('timestamp' =>
'Timestamp of Last Transaction<br>timestamp');	'Timestamp of Last Transaction<br>timestamp',
	'subnumber' =>
	'Number of Submissions<br>subnumber',
	'tutornumber' =>
	'Number of Tutor Responses<br>tutornumber',
	'totalpoints' =>
	'Total Points Granted<br>totalpoints');

my $adduserstr='';	my $adduserstr='';
if ((&getuname($safeeval) ne $ENV{'user.name'}) \|\|	if ((&getuname($safeeval) ne $ENV{'user.name'}) \|\|
Line 1262 sub updatestudentassesssheet {	Line 1268 sub updatestudentassesssheet {
'">Evaluation</a>',	'">Evaluation</a>',
'_tutoring' =>	'_tutoring' =>
'<a href="/adm/assesscalc?usymb=_tutoring'.$adduserstr.	'<a href="/adm/assesscalc?usymb=_tutoring'.$adduserstr.
'">Tutoring</a>'	'">Tutoring</a>',
	'_discussion' =>
	'<a href="/adm/assesscalc?usymb=_discussion'.$adduserstr.
	'">Discussion</a>'
);	);

map {	map {
Line 1716 sub forcedrecalc {	Line 1725 sub forcedrecalc {
sub exportsheet {	sub exportsheet {
my ($uname,$udom,$stype,$usymb,$fn)=@_;	my ($uname,$udom,$stype,$usymb,$fn)=@_;
my @exportarr=();	my @exportarr=();

	if (($usymb=~/^\_(\w+)/) && (!$fn)) {
	$fn='default_'.$1;
	}

#	#
# Check if cached	# Check if cached
#	#