loncom/interface/statistics/lonstudentassessment.pm - diff

Return to lonstudentassessment.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

version 1.146, 2007/12/20 13:57:13	version 1.148, 2008/09/14 15:16:30
Line 1826 sub csv_finish {	Line 1826 sub csv_finish {
#	#
# Tell the user where to get their csv file	# Tell the user where to get their csv file
$r->print('<br />'.	$r->print('<br />'.
'<a href="'.$filename.'">'.&mt('Your csv file.').'</a>'."\n");	'<a href="'.$filename.'">'.&mt('Your CSV file.').'</a>'."\n");
$r->rflush();	$r->rflush();
&csv_cleanup();	&csv_cleanup();
return;	return;
Line 1958 sub student_tries_on_sequence {	Line 1958 sub student_tries_on_sequence {
if ( ($links eq 'yes' && $symbol ne ' ') \|\|	if ( ($links eq 'yes' && $symbol ne ' ') \|\|
($links eq 'all')) {	($links eq 'all')) {
my $link = '/adm/grades'.	my $link = '/adm/grades'.
'?symb='.&escape($resource->symb).	'?symb='.&escape($resource->shown_symb).
'&student='.$student->{'username'}.	'&student='.$student->{'username'}.
'&userdom='.$student->{'domain'}.	'&userdom='.$student->{'domain'}.
'&command=submission';	'&command=submission';
Line 2113 sub student_performance_on_sequence {	Line 2113 sub student_performance_on_sequence {
#	#
if ( ($links eq 'yes' && $symbol ne ' ') \|\| ($links eq 'all')) {	if ( ($links eq 'yes' && $symbol ne ' ') \|\| ($links eq 'all')) {
my $link = '/adm/grades' .	my $link = '/adm/grades' .
'?symb='.&escape($symb).	'?symb='.&escape($resource->shown_symb).
'&student='.$student->{'username'}.	'&student='.$student->{'username'}.
'&userdom='.$student->{'domain'}.	'&userdom='.$student->{'domain'}.
'&command=submission';	'&command=submission';