loncom/interface/statistics/lonstudentassessment.pm - diff

Return to lonstudentassessment.pm CVS log

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

version 1.143, 2006/08/18 15:15:38	version 1.145, 2007/10/03 17:39:13
Line 843 sub html_outputstudent {	Line 843 sub html_outputstudent {
my @tmp = &Apache::loncoursedata::get_current_state	my @tmp = &Apache::loncoursedata::get_current_state
($student->{'username'},$student->{'domain'},undef,	($student->{'username'},$student->{'domain'},undef,
$env{'request.course.id'});	$env{'request.course.id'});
if ((scalar @tmp > 0) && ($tmp[0] !~ /^error:/)) {	if ((scalar @tmp > 0) && ($tmp[0] !~ /^error:(.*)/)) {
%StudentsData = @tmp;	%StudentsData = @tmp;
}	} else {
if (scalar(@tmp) < 1) {	my $error = $1;
	if (scalar(@tmp) < 1) {
	$Str .= '<font color="blue">No Course Data</font>'."\n";
	} else {
	$Str .= '<span class="LC_error">Error getting student data ('.
	$error.') </span>'."\n";
	}
$nodata_count++;	$nodata_count++;
$Str .= '<font color="blue">No Course Data</font>'."\n";
$r->print($Str);	$r->print($Str);
$r->rflush();	$r->rflush();
return;	return;
Line 1951 sub student_tries_on_sequence {	Line 1956 sub student_tries_on_sequence {
#	#
if ( ($links eq 'yes' && $symbol ne ' ') \|\|	if ( ($links eq 'yes' && $symbol ne ' ') \|\|
($links eq 'all')) {	($links eq 'all')) {
if (length($symbol) > 1) {
&Apache::lonnet::logthis('length of symbol "'.$symbol.'" > 1');
}
my $link = '/adm/grades'.	my $link = '/adm/grades'.
'?symb='.&escape($resource->symb).	'?symb='.&escape($resource->symb).
'&student='.$student->{'username'}.	'&student='.$student->{'username'}.