loncom/interface/statistics/lonstudentassessment.pm - diff

Return to lonstudentassessment.pm CVS log

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

version 1.8, 2002/08/13 00:37:18	version 1.9, 2002/08/31 18:31:15
Line 290 sub StudentReport {	Line 290 sub StudentReport {

my $Str = '';	my $Str = '';
if(defined($cache->{$name.':error'})) {	if(defined($cache->{$name.':error'})) {
return $Str;	return '<br><br><br>';
	# return 'ERROR in student report for '.$name.'<br>';
}	}
if($cache->{$name.':error'} =~ /course/) {	if($cache->{$name.':error'} =~ /course/) {
$Str .= '<b><font color="blue">No course data for student </font>';	$Str .= '<b><font color="blue">No course data for student </font>';
Line 308 sub StudentReport {	Line 309 sub StudentReport {
foreach(split(/\:/,$cache->{$sequence.':'.$problemID.	foreach(split(/\:/,$cache->{$sequence.':'.$problemID.
':parts'})) {	':parts'})) {
$characterCount++;	$characterCount++;
if(defined($cache->{$name.':'.$problemID.':NoVersion'}) \|\|	if($cache->{$name.':'.$problemID.':NoVersion'} eq 'true' \|\|
$cache->{$name.':'.$problemID.':'.$_.':code'} eq ' ') {	$cache->{$name.':'.$problemID.':'.$_.':code'} eq ' ') {
$Str .= ' ';	$Str .= ' ';
next;	next;